AD-A201  028 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey ,  California 


r 

r 


i 


■i 

) 

1 

i 

i 

t 

i 


88  11  15  008 


A 

THE 

COMPUTER-AIDED  INSTRUCTION 

PROGRAM  FOR  TEACHING 

TOPS20-MM  FACILITY  ON  THE  DDN 

by 

Tae  Woo  Kim 

June  1988 

Thesis  Advisor:  Neil  C.  Rowe 

Approved  for  public  release;  distribution  is  unlimited 


SECUR'TY  CLASSIUCAT'ON  of  Th-S  PAGE 


REPORT  DOCUMENTATION  PAGE  y  ^ 

la  REPORT  SECURITY  ClASSIF, CATION 

Unclassified 

lb  RESTRICTIVE  MARKINGS 

2a  security  Classification  authority 

3  DISTRIBUTION /AVAILABILITY  OF  REPORT 

Approved  for  public  release; 

2b  DEClASSiFiCATION /DOWNGRADING  SCHEDULE 

Distribution  is  unlimited 

4.  PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

5  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 

6a  NAME  OF  PERFORMING  ORGANIZATION 

Naval  Postgraduate  School 

6b  OFFICE  SYMBOL 
(if  applicable) 
Code  52 

7a  NAME  OF  MONITORING  ORGANIZATION 

Naval  Postgraduate  School 

6c  ADDRESS  (City,  State,  and  ZIP  Code) 

Monterey,  California  93943-5000 

7b.  ADDRESS  (City,  State,  and  ZIP  Code) 

Monterey,  California  93943-5000 

8a.  NAME  OF  FUNDING  .  SPONSORING 
ORGANIZATION 

8b  OFFICE  SYMBOL 
(If  applicable) 

9.  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 

8c.  ADDRESS  (City,  State,  and  ZIP  Code) 

10.  SOURCE  OF  FUNDING  NUMBERS 

PROGRAM 

PROJECT 

TASK 

ELEMENT  NO. 

NO 

NO 

WORK  UNIT 
ACCESSION  NO 


1 1  TITLE  (Include  Security  Classification ) 

A  COMPUTER-AIDED  INSTRUCTION  PROGRAM  FOR  TEACHING  THE  T0PS20-MM  FACILITY  ON  THE  DDN 


12  PERSONAL  AUTHOR(S; 

Kim.  Tae  Woo 


13b  TIME  COVERED 
FROM _ TO 


14  DATE  OF  REPORT  (Year,  Month,  Day)  115  PAGE  COUNT 

1988  June  I  54 


16  SUPPLEMENTARY  NOTATION 

The  views  expressed  in  this  thesis  are  those  of  the  author  and  do  not  reflect  the  official 
olicv  or  position  of  the  Department  of  Defense  or  the  U.S.  Government. 


18  SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

Computer  Assisted  Instruction;  Artificial  Intelligence 


17 

COSATI  CODES  | 

FIELD 

GROUP 

SUB-GROUP  ! 

19/ABSTRACT  ( Continue  on  reverse  if  necessary  and  identify  by  block  number ) 

^*We  constructed  an  Intelligent  Computer  Assisted  Instruction  (ICAI)  program  to  tutor  the 
usage  of  the  TOPS20-MM,  an  electronic  mail  facility  available  on  the  Defense  Data  Network 
(DDN).  Learning  by  experience  is  one  of  the  best  ways  to  learn  something.  The  main 
strategy  of  tutoring  in  this  thesis  was  to  provide  an  environment  simulating  the  actual 
facility  that  guides  the  student  while  he/ she  tries  to  perform  given  tasks.  Means-ends 
analysis,  a  classic  technique  for  solving  search  problems  in  Artificial  Intelligence, 
has  been  used  to  figure  out  the  right  command  to  perform  a  given  task.  Basic  commands, 
e.g.  a  command  for  viewing  a  message  number  7,  will  be  taught  first,  then  the  tasks  like 
"Send  a  message  to  the  people  mentioned  in  message  number  3"  will  be  issued. 

K 


21.  ABSTRACT  SECURITY  CLASSIFICATION 
Unclassified 


20  Distribution  '  availability  of  abstract 
CB  UNCLASSIFIED/UNLIMITED  □  SAME  AS  RPT  □  OTIC  USERS 


22a  NAME  OF  RESPONSIBLE  INDIVIDUAL  22b  TELEPHONE  (Include  Area  Code)  22 c  OFFICE  SYMBOL 

Prof.  Neil  C.  Rowe  (408)  646-2462  Code  52Rp 


DD  FORM  1473.  84  mar  83  APR  edition  may  be  used  until  exhausted  SECURITY  CLASSIFICATION  OF  THIS  PAGE 

All  other  editions  are  obsolete  UNCLAS S MMED""""*'*  Mntm.onic. 


Author: 


Approved  by: 


Approved  for  public  release;  distribution  is  unlimited. 

A  COMPUTER-AIDED  INSTRUCTION 
PROGRAM  FOR  TEACHING 
THE  TOPS20-MM  FACILITY  ON  THE  DDN 

by 

Tae  Woo  Kim 

Capt.  Republic  of  Korea  Army 
B.S.,  Korea  Military  Academy,  1984 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 

MASTER  OF  SCIENCE  IN  COMPUTER  SCIENCE 

from  the 

NAVAL  POSTGRADUATE  SCHOOL 
June  1988 

_ ^  2$  4- 

Tae  Woo  Kim 


ii 


ABSTRACT 


We  constructed  an  Intelligent  Computer  Assisted  Instruction  (1CAI)  program  to 
tutor  the  usage  of  the  TOPS20-MM,  an  electronic  mail  facility  available  on  the  Defense 
Data  Network  (DDN).  Learning  by  experience  is  one  of  the  best  ways  to  leam 
something.  The  main  strategy  of  tutoring  in  this  diesis  was  to  provide  an  environment 
simulating  the  actual  facility  that  guides  the  student  while  he/she  tries  to  perform  given 
tasks.  Means-ends  analysis,  a  classic  technique  for  solving  search  problems  in  Artificial 
Intelligence,  has  been  used  to  figure  out  the  right  command  to  perform  a  given  task. 
Basic  commands,  e.g.  a  command  for  viewing  a  message  number  7,  will  be  taught  first, 
then  the  tasks  like  "Send  a  message  to  the  people  mentioned  in  message  number  3"  will 
be  issued. 
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I.  INTRODUCTION 


This  thesis  built  a  tutor  to  teach  an  electronic  mail  facility  called  "TOPS20-MM". 
The  computer  serves  as  a  nice  tool  to  do  this.  Learning  by  experience  is  one  of  the  best 
ways  to  learn  something.  This  thesis  provides  a  simulation  of  the  MM  facility 
environment  and  the  student  learns  by  trying  to  perform  given  tasks  with  it.  TOPS20- 
MM,  which  we  have  chosen  to  teach,  is  the  most-used  service  on  the  Defense  Data 
Network(DDN).  The  DDN  and  the  TOPS20-MM  are  discussed  briefly  in  chapter  3. 

Computer- Assisted  Instruction(CAI)  programs  try  to  encourage  and  control  learning 
while  the  student  is  involved  in  some  activity.  Artificial  intelligence  in  computer-based 
instructional  applications  provides  a  new  kind  of  learning  environment.  Some  of  the 
important  applications  of  artificial-intelligence-based  teaching  are  discussed  in  chapter  2. 

The  strategy  we  have  used  for  teaching  is:  (1)  issue  a  task  or  an  exercise  to  the 
student;  (2)  monitor  the  student’s  actions;  (3)  compare  the  command  issued  by  the 
student  with  the  correct  command;  (4)  either  perform  the  actual  MM  actions  or  correct 
the  error.  For  the  tutor  to  best  teach  the  student  the  commands  and  procedures  to  use  the 
MM  facility,  it  should  be  able  to  figure  them  out  itself.  To  do  so,  we  have  exploited 
means-ends  analysis,  a  classic  technique  for  solving  search  problems  by  abstraction. 
Means-ends  analysis  tries  to  find  appropriate  operators  to  reach  a  certain  goal  state  from 
a  starting  state  by  using  the  preconditions  and  postconditions  of  each  operator.  In  our 
program,  we  have  determined  preconditions  and  postconditions  of  each  command. 
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For  the  tasks  to  be  issued,  we  have  used  a  subskill  lattice.  With  this  idea,  the  basic 
commands  available  in  MM  will  be  taught  first,  then  more  complicated  tasks  which  are 
compositions  of  basic  ones.  The  tutoring  program  is  written  in  PROLOG  and  it  runs  on 
UNIX. 
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n.  SURVEY  OF  PREVIOUS  WORK 


A.  INTELLIGENT  TUTORING  SYSTEMS 
1.  Overview 

The  goal  of  computer  aided  instruction  (CAI)  research  is  to  build  instructional 
programs  that  incorporate  well-prepared  course  material  in  lessons  that  are  optimized  for 
each  student  [Ref.  1].  In  the  1970’s,  course  materials  were  represented  independently  of 
teaching  procedures  by  intelligent  computer-aided  instruction  (ICAI)  programs,  so  that 
problems  and  tutoring  advice  could  be  generated  differently  for  each  student.  In  recent 
years,  researchers  have  concentrated  on  supportive  learning  environments  to  provide 
learning-by-doing,  which  means  a  student  squires  knowledge  by  solving  real-world 
problems  [Ref.  2].  To  tutor  well,  a  system  has  to  specify  exercises  and  their  answers 
ahead  of  time,  and  must  have  an  ability  to  diagnose  or  model  the  student’s  behavior.  It 
must  also  have  tutorial  strategies  that  specify  when  to  interrupt  a  student  and  what  to  say 
then. 

When  CAI  researchers  realized  the  complexity  of  such  a  computer-based  tutor, 
they  began  to  apply  artificial  intelligence  (AI)  techniques.  AI  research  such  as  natural- 
language  understanding,  knowledge  representation,  and  inferencing,  have  been  applied. 
The  main  components  of  an  such  "intelligent  computer-aided  instruction"  (ICAI)  systems 
are  problem-solving  expertise,  what  the  system  tries  to  teach  the  student;  the  student 
model,  what  the  student  does  and  does  not  know;  and  tutoring  strategies,  how  the  system 
presents  material  to  the  student. 
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2.  Intelligent  CAI  Systems 


In  this  section  four  intelligent  computer-aided  instruction  (ICAI)  systems 
relevant  to  this  thesis  are  discussed  briefly. 

a.  SOPHIE 

SOPHIE  (a  SOPHisticated  Instructional  Environment)  is  an  ICAI  system 
developed  by  John  Seely  Brown,  Richard  Burton,  and  their  colleagues  at  Bolt  Beranek 
and  Newman,  Inc  [Ref.3:p.247].  It  tries  to  teach  natural  proofs  as  they  are  actually  done 
by  mathematicians  It  is  designed  to  provide  the  student  with  a  learning  environment  in 
which  he/she  acquires  problem-solving  skills  by  making  hypotheses  and  trying  out  ideas. 

SOPHIE  has  modules  for  problem-solving  knowledge,  heuristic  strategies 
to  answer  the  student’s  questions,  rules  to  criticize  the  student’s  hypotheses,  and  the  rules 
to  suggest  alternative  theories  for  the  current  hypothesis.  In  a  simulated  electronics 
laboratory,  it  teaches  problem-solving  skills.  It  issues  problems  to  the  student  to  find  the 
faults  in  a  malfunctioning  electric  circuit.  After  the  student  measures  the  equipment  and 
proposes  a  solution,  he/she  receives  feedback  as  to  the  logical  validity  of  their  proposed 
solutions.  When  the  student  makes  an  error  in  his/her  logic,  SOPHIE  can  critique  by 
generating  relevant  counterexamples.  The  SOPHIE  system  combines  domain-dependent 
knowledge  and  domain-independent  inferencing  mechanisms  to  answer  questions. 

b.  GUIDON 

GUIDON  was  developed  by  William  J.  Clancey  and  his  colleagues  at 
Stanford  University  [Ref.3:p.267].  It  is  design  to  answer  "how  the  problem-solving  rules 
in  the  MYCIN  consultation  system  can  be  used  by  other  tutoring  programs  in  interaction 
with  a  student?"  and  "what  can  be  done  to  MYCIN  in  oreder  to  make  it  more  effective 
tutorial  program?"  MYCIN  is  a  rule-based  expert  system  that  diagnoses  the  cause  of  the 
infection  using  knowledge  relating  infecting  organisms  with  patient  history  and  test 
results  [Ref.4:p.283. 
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GUIDON  uses  the  rules  of  the  MYCIN  consultation  system  as  subject 
material  and  organizes  them  into  procedures.  MYCIN ’s  rules  are  not  been  modified,  but 
are  used  to  form  quizzes,  guide  the  dialogue,  summarize  evidence,  and  model  the 
student's  understanding  for  the  tutoring  application.  GUIDON  engages  the  student  in  a 
dialogue  about  a  patient  suspected  of  having  an  infection.  The  student  learns  the  relevant 
clinical  and  laboratory  data  and  how  to  use  it  to  diagnose  the  patient. 

GUIDON  differs  from  other  ICAI  programs  in  its  mixed-initiative 
dialogue,  which  allows  both  tutor  and  student  decide  what  to  do  next.  It  uses  structured 
teaching  interactions  that  record  the  previous  dialogue,  and  it  does  more  than  just 
respond  to  the  student’s  last  action.  It  demonstrates  that  by  separating  teaching 
knowledge  from  subject  knowledge,  we  can  treat  the  teaching  knowledge  as  a  rule-based 
system  itself. 

c.  EXCHECK 

EXCHECK  is  an  instructional  system  developed  by  Patrick  Suppes  and 
his  colleagues  at  the  Institute  for  Mathematical  Studies  in  the  Social  Sciences  (IMSSS)  at 
Stanford  University  [Ref.3:p.283].  It  tries  to  teach  natural  proofs  as  they  are  actually 
done  by  mathematicians,  by  checking  student  proofs. 

EXCHECK  has  natural-inference  subroutines  which  allow  it  to  understand 
sketches  of  proofs,  summarize  proofs,  and  explain  set  theory.  These  subroutines  allow 
the  system  to  interact  in  a  natural  style  which  is  similar  to  standard  mathematical 
practice.  With  this  system,  the  student  is  given  lesson  materials  first,  then  exercises 
consisting  of  theorems  are  given  for  him/her  to  prove.  Since  its  inference  procedures 
allow  the  system  to  recognize  the  student’s  reasoning  and  track  his/her  solutions, 
EXCHECK  has  similarities  to  SOPHIE. 
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d.  The  C  Workshop 


The  C  workshop  is  a  tutorial  program  developed  by  Charles  Pine  at  Word 
Craft  iRef.  5].  It  teaches  the  C  programming  language  by  providing  a  programming 
environment  and  online  help  facility. 

It  has  a  tutoring  module  called  Soft  Tutor  that  examines  the  workings  of 
the  student’s  program.  The  system  presents  example  programs,  and  the  student  modifies 
them  to  obtain  his/her  own  programs.  The  Soft  Tutor  gives  immediate  feedback  by  error 
messages.  It  uses  an  actual  C  compiler  to  teach  the  C  language  since  its  problem  domain 
is  a  computer  system.  It  provides  an  working  environment,  but  it  lacks  much  interactive 
ability. 
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HI.  Description  of  the  Application 

A.  About  DDN 

The  Defense  Data  Network  (DDN)  is  a  large  common-user  data  communications 
network  operated  for  the  Department  of  Defense  (DoD)  by  the  Defense  Data  Network 
Program  Management  Office  (DDN  PMO)  of  the  Defense  Communications  Agency 
(DCA).  Mail  services  let  users  send  messages  electronically  to  one  another.  They  have 
these  features: 

1.  Reading  messages:  select  and  view  specific  messages. 

2.  Printing,  deleting,  or  moving  messages:  print  messages  on  the  printer,  move  them 
into  files,  or  delete  them. 

3.  Sending  messages:  send  messages  to  other  users;  you  must  know  the  network 
mailbox  or  "address"  of  the  addressee. 

In  this  thesis,  I’ll  concentrate  on  the  "TOPS20  MM"  mail  service. 

B.  About  TOPS20-MM 

MM  is  a  sophisticated  program  used  to  create  and  manipulate  messages  [Ref.  6]. 
MM  has  three  levels:  the  TOPS20  executive  level  which  displays  prompt  on  the 
screen;  the  main  executive  level  of  MM  that  displays  "MM>"  prompt;  and  the  sub-modes 
that  can  be  entered  from  MM  level. 

The  top  level  is  the  initial  and  main  command  level.  Here  most  of  MM’s  power  is 
available  through  a  variety  of  commands.  Available  commands  and  their  functions  are  as 
follows: 

ALLAS:  allows  you  to  use  MM  as  the  given  user. 

ANSWER:  allows  you  to  respond  a  selected  message  individually. 
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APPEND:  concatenates  selected  messages  into  one. 

BBOARD:  allows  you  to  select  a  file  name  from  a  list  of  names  for  MM  to  work. 
BLANK:  clears  the  screen. 

BUG:  allows  you  to  report  or  send  suggestions  to  the  MM  maintainer. 

CHECK:  shows  header-lines  of  newly  arrived  messages  if  any. 

CONTINUE;  resumes  the  last  SEND,  if  it  was  aborted. 

COPY:  copies  selected  messages  to  the  given  file  name. 

COUNT:  gives  the  number  of  the  required  messages. 

CREATE-INIT :  makes  a  new  version  of  MM.INTT  in  your  login  directory. 
DAYTIME:  gives  you  the  current  date  and  time. 

DELETE:  sets  the  delete  bit  to  the  selected  messages. 

DISABLE:  makes  the  current  message  into  read-only  mode. 

ECHO:  shows  a  text  string  you  type  on  the  terminal. 

EDIT:  allows  you  to  edit  selected  messages  with  the  editor. 

ENABLE:  makes  the  current  message  into  read-write  mode. 

EXAMINE:  sets  read-only  mode  to  allow  you  to  select  a  message  for  MM  to  work. 
EXIT:  halts  MM  after  removing  all  the  deleted  messages  in  the  mail  file. 
EXPUNGE:  just  removes  all  the  deleted  messages  in  the  mail  file. 

FILE-LIST:  shows  an  index  of  header  lines. 

FLAG:  just  sets  the  flag  bit  of  selected  messages. 

FORWARD:  allows  you  to  send  selected  messages  with  your  comments. 

FROM:  allows  you  to  specify  the  address  field  with  other  commands. 

GET:  allows  you  to  specify  the  mail  file  for  MM  to  work  with. 

HEADERS:  shows  the  header  line  of  messages  you  selected. 

HELP:  shows  a  definition  of  the  following  command. 

JUMP:  changes  the  current  message  to  be  the  following  number. 


LIST:  shows  an  index  of  header  lines  and  then  prints  the  selected  messages. 

LITERAL-TYPE:  shows  the  selected  messages  without  regard  to  the  variables 
only-type-headers  and  dont -type-headers, 

LOGOUT:  expunges  the  mail  file,  and  logs  you  out  of  the  system. 

MARK:  sets  the  seen  bit  of  selected  messages. 

MOVE:  copies  selected  messages  to  the  end  of  given  file  and  sets  a  delete  bit  to  the 
selected  messages. 

NET-MAIL:  tries  to  send  queued  mail,  if  any. 

NEXT:  types  the  next  message  if  undeleted,  and  makes  it  the  current  message. 

PREVIOUS:  types  the  previous  message  if  undeleted,  and  makes  it  the  current 
message. 

PROFILE:  allows  you  to  establish  values  for  a  basic  set  of  variables  to  adjust  MM’s 
environment  to  your  preference. 

PUSH:  gives  you  a  fresh  EXEC  after  placing  the  current  job  in  an  inferior  fork. 
QUIT:  halts  MM  without  removing  deleted  messages  in  the  current  mail  file. 

READ:  allows  you  to  enter  READ  mode. 

REMAIL:  allows  you  to  resend  selected  messages  without  comments. 

REPLY:  allows  you  to  respond  each  selected  message  individually. 

REPLY-TO:  adds  the  address  to  the  "Reply-To:”  field  for  all  outgoing  messages. 

RESTORE-DRAFT:  enters  SEND-mode  with  resetting  the  outgoing  message  fields 
to  the  values  of  the  message  draft  saved  in  the  given  file. 

SEND:  allows  you  to  enter  SEND-mode. 

SET:  allows  you  to  change  the  value  of  the  selected  variable  for  this  session. 

SHOW:  shows  the  current  MM  variable  settings. 

SORT:  reorders  the  selected  messages  chronologically  by  date  of  composition. 
STATUS:  tells  you  relevant  information  and  statistics  of  the  current  mail  file. 
SYSTEM-MSGS:  is  the  same  as  GET  SYSTEM.MAIL.TXT.1 
TAKE:  allows  you  to  change  the  input  source  from  the  terminal  to  the  file. 
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TYPE:  shows  the  selected  messages,  considering  the  variables  only-type-headers, 
and  dont-type-headers  and  sets  the  seen  bit. 

UNANSWER:  removes  the  ANSWER  bit  from  the  selected  messages. 

UNDELETE:  removes  the  DELETE  bit  from  the  selected  messages. 

UNFLAG:  removes  the  FLAG  bit  from  the  selected  messages. 

UNKEYWORDS:  removes  the  given  keyfiag  and  keywords  from  the  "Keywords:" 
field  of  selected  messages. 

UNMARK:  removes  the  SEEN  bit  from  selected  messages. 

VERSION:  gives  the  version  number  and  configuration  of  MM. 
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IV.  Implementation  of  the  Tutor 

A.  Data  Structures  and  the  System  Environment 

This  program  has  been  developed  on  VAX  1 1/785  running  the  UNIX  Operating 
System.  It  is  written  in  C-Prolog,  a  Prolog  interpreter  written  in  C  for  32  bit  machines. 

The  program  uses  code  for  means-ends  analysis  written  by  Prof.  Rowe  [Ref.  1]. 
Means-ends  analysis  tries  to  find  a  path  from  a  starting  state  to  a  goal  state,  representing 
it  by  a  sequence  of  operators.  In  our  program,  operators  are  the  available  commands  in 
each  mode.  To  reach  the  goal  states,  recommended  operators  are  specified  and 
preconditions  are  specified  for  each  operator.  Also,  deletepostconditions  and 
addpostconditions  are  defined  for  each  operators.  Lists  hold  the  sequence  of  operators  to 
be  issued  to  perform  a  given  task.  Lists  also  represent  preconditions  and  postconditions 
for  each  operator,  the  starting  state,  and  the  goal  state. 

B.  Structure  of  tire  program 

The  program  is  divided  into  three  modules.  The  problem  domain  module  defines 
the  tasks  issued  to  the  student  to  teach  the  TOPS20-MM  facility.  The  tutor  module 
implements  various  tutoring  strategies.  The  TOPS20-MM  module  simulates  the  actual 
TOPS20-MM  environment. 

1.  Problem  Domain  Module 

Student  tasks  are  divided  into  two  groups:  basic  and  advanced.  Basic  tasks 
teach  the  concept  of  domain  levels  and  single  basic  commands  in  each  level.  The 
commands  we  chose  are  a  subset  of  the  commands  described  in  previous  chapter: 
to  teach  answer,  copy,  delete,  exit,  expunge,  flag,  forward, 
headers  all,  headers  answer,  headers  current,  headers  delete. 
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headers  flag,  headers  unseen,  help,  jump,  list,  logout,  move, 
next,  previous,  quit,  read,  send,  type,  undelete,  and  unflag. 


2.  Tutor  Module 

The  tutor  issues  tasks  to  the  student  and  monitors  the  actions  performed.  Most 
of  its  code  was  written  by  Prof.  Rowe.  It  contains  an  inference  engine  for  means-ends 
analysis,  tutoring  strategies,  an  interface,  a  help  facility,  and  utilities.  The  tutor  issues  a 
task,  compares  the  student’s  answer  with  the  correct  command  figured  out  by  the 
inference  module,  and  gives  the  student  appropriate  assistance  and  corrects  any  errors. 
The  tutor  interacts  with  the  student  via  the  interface  module  and  provides  help  with  the 
help  facility  module.  It  executes  commands  the  student  types  in  by  invoking  the 
TOPS20-MM  module,  if  it  is  a  correct  command. 

For  example,  in  order  to  send  a  message,  a  user  must  type  the  command  "send" 
to  enter  the  SEND  mode  from  MM  or  READ  mode;  "send”  is  thus  an  operator.  Means- 
ends  analysis  requires  clear  definitions  of  the  preconditions  postconditions  for  each 
operator.  In  this  case,  the  precondition  can  be  expressed  by: 

precondition(command(mnvsend),[level(mm)]) 
where  the  second  argument  is  the  precondition  that  the  current  level  must  be  MM.  After 
an  operator  has  been  applied,  it  must  delete  previous  conditions  which  are  no  longer  true 
and  add  new  conditions  that  became  true.  These  can  be  represented  by: 

deletepostcondition(command(mm,send),[level(min)]) 

and 

addpostcondition(command(mnvsend),[level(send),issued_command(mm,send)]), 
respectively.  The  recommended  operator  to  reach  a  goal  state  is  represented  by: 
predicate  "recommended"  as  in 

recommend  ed([level(send)],command(mm,send)) 
which  can  be  read  as  "In  order  to  reach  the  state  where  the  current  level  is  SEND,  try  to 
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issue  a  send  command  from  the  MM  level."  Means-ends  analysis  figures  out  the  required 
sequence  of  operators  to  accomplish  a  task  by  using  these  conditions. 


After  issuing  the  task  and  receiving  a  command  from  the  student,  the  tutor  uses 
some  of  the  teaching  strategy  rules  in  metutor9  module  written  by  Prof.  Rowe  to  decide 
what  actions  to  take  according  to  the  student’s  input,  plus  some  code  of  my  own.  If  the 
received  command  was  invalid,  the  tutor  checks  for  minor  errors  such  as  mistyping  or 
transposition  of  characters  in  a  command.  It  infers  the  correct  command  if  it  recognizes 
one  difference  in  character  string  of  the  received  command  from  a  valid  one,  if  by 
changing  the  positions  of  two  adjacent  characters  in  the  string;  then  it  will  ask  the  student 
if  it  can  correct  the  command. 

A  subroutine  called  "nice read"  has  been  written  by  Prof.  Rowe  to  make  input 
and  output  process  a  little  easier.  The  tutor  will  recognize  input  when  the  user  hits  the 
return  key  without  an  extra  period.  When  the  tutor  must  talk  to  the  student  while  he/she 
is  inside  the  environment  of  the  TOPS20-MM,  the  words  are  preceded  by  "TUTOR:" 

A  help  facility  can  show  the  available  commands  at  each  level  and  explain  the 
functions  of  each  command,  when  requested  by  the  student  typing  "?"  or  "help".  The 
student  can  also  review  the  task  by  typing  "task". 

3.  TQPS20-MM  Module 

When  the  student  types  a  correct  command,  the  tutor  passes  it  and  the  current 
level  to  the  TOPS20-MM  module  for  execution.  For  example,  after  a  "send”  command, 
it  executes  the  action  rule  whose  left  hand  side  is  action(mm,send)  and  performs  die 
function  of  the  command.  It  then  enters  the  "To:”  level  and  waits  for  the  address  of  the 
receiver. 

Our  program  differs  from  the  actual  TOPS20-MM  in  the  usage  of  the  escape 
character.  MM  allows  the  student  to  abbreviate  a  command  by  typing  two  or  three 
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characters  followed  by  an  escape  character,  but  it  was  hard  to  implement  and  was 
discarded  from  this  module.  Instead,  the  exact  commands  were  required  to  execute  the 
system. 
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V.  CONCLUSIONS 


We  built  a  computer  tutor  to  teach  part  of  MM.  We  showed  it  was  possible  to 
provided  an  efficient  working  environment  for  a  student  to  learn  the  usage  of  MM  by 
issuing  the  commands  and  seeing  results.  Since  the  time  was  limited,  only  a  part  of  MM 
was  addressed. 

"Is  it  cost  effective?”  is  an  important  question  when  developing  an  ICAI  system. 
TOPS20-MM  is  the  most-used  service  provided  in  the  Defense  Data  Network.  Since 
teaching  TOPS20-MM  isn’t  complex,  a  computer  tutor  can  save  much  time  and  effort  of 
a  teacher  as  well  as  a  student. 

The  program  didn’t  cover  all  of  MM,  but  it  demonstrated  that  artificial  intelligence 
can  be  added  to  computer  aided-instruction  to  provide  a  better  system.  It  could  correct 
typing  errors  and  misconceptions  in  level,  precondition  violations,  and  other  more  subtle 
errors.  The  program  could  be  improved  by  providing  a  complete  simulation  of  MM,  and 
more  tutoring  strategies,  and  computer  graphics. 
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APPENDIX  A  -  DEMONSTRATION 


Tutor:  Hi,  what  is  your  name?  Kim 
Tutor:  Nice  to  meet  you,  Kim. 

Welcome  to  TOPS20  AM  Self-learning  courae. 
Type  "?"  for  the  available  conmands 
or  "?  task"  for  the  current  taak. 


Tutor:  We  are  now  at  the  top  level  mode. 

Your  fiirt  exercise  ia  to  invoke  the  VM. 


%nn 

A.  1ST  .HXJ.  tint  erne  t  MU- 20  6.1(1145) 

Last  read:  5-Jun-88  11:15:20  12  messages,  40  pages 

3  messages  unseen;  2  deleted 

U  10  5-  Jul  Tutor  Exercise  #10 

U  11  7-Jul  Tutor  Delete  this  file 

U  12  10- lu 1  Gen.  X  Task  #12 


Tutor:  Good.  Now,  we  are  at  the  1M  mode. 

Lets  browse  the  headers  of  the  current  message  in  the  mail  box. 


VM>  7 


Following  are  the  possible  cotmtands  at  sm  level: 


answer 
copy 
delete 
exi  t 
expunge 
f  1  ag 
f  o  rwa  r  d 


headers  all 
headers  current 
headers  delete 
headers  flag 
headers  unseen 
he  Ip 
jump 


list 

logout 

move 

next 

previous 

quit 

read 


send 

type 

unde  le  t e 
unflag 


1M>  headres  current 

Ooops I  You  mean  "headers  current"?  yes 


U  12  10- Jul  Gen.  X 


Task  #12 


Tutor:  O.K. 

Lets  browse  the  content  of  the  current  message. 


WM»  type 


hfcssage  12 

Ms  i 1 _F r  om :  Gen.  X 
Date: 

Subject:  Task  #12 
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To :  Kim 


This  is  the  content  of  message  number  12. 

Since  you  have  seen  this  message,  the  unseen  flag  will  be  removed. 


Tutor:  Now,  go  back  to  the  top  level  again. 
KM>  quit 


Tutor:  All  right.  We  came  back  to  the  TOP  level. 

Now,  lets  browse  all  the  headers  of  messages  in  the  mail  box. 

^headers  all 

Ooopst  You  can  issue  a  "headers  all"  coonand  only  in  the  "KM"  level. 
Try  again. 


A. 

1ST 

EDU. 

^Internet  KM-20  6.1(1145 

Last 

read 

5- Jun-88 

11:15:20  12 

2 

me  s ; 

•  ages 

unseen;  2 

deleted 

U 

10 

5-Jul 

Tutor 

U 

11 

7-Jul 

Tutor 

KM>  he 

aders 

all 

FLAG 

NLMBER  DATE 

AUTHOR 

1 

25- 

Jun 

Tutor 

2 

27- 

fun 

Gen.  X 

D 

3 

28- 

Jun 

Tutor 

A 

4 

29 

Jun 

Gen  .  Z 

F 

5 

30 

Jun 

Tutor 

6 

1 

Jul 

Tutor 

A 

7 

30 

Jun 

Gen .  Z 

D 

8 

3 

Jul 

Somebody 

F 

9 

5 

Jul 

Gen .  S 

U 

10 

5 

Jul 

Tutor 

U 

11 

7 

Jul 

Tutor 

12 

10 

Jul 

Gen.  X 

Tutor : 

Now, 

list 

all  the  headers  o 

KM>  je 

aders 

flag 

Ooops 1 

You  mean  " 

header 

•  flag"?  y 

FLAG 

NLMBER 

DATE 

AUTHOR 

F 

5 

30- Jun 

Tutor 

F 

9 

5- Jul 

Gen .  S 

) 

messages,  40  pages 

Exercise  #10 
Delete  this  file 


SUBJECT 
Exercise  #1 
Task  #2 
Garbage 
Reply  Needed 
Special  Note 
Exercise  #6 
Reply  Needed 
Another  Garbage 
Another  Special  Note 
Exercise  #10 
Delete  this  file 
Task  #12 


flagged  messages  in  the  mail  box. 


SIBJBCT 
Special  Note 
Another  Special  Note 
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Tutor:  Good.  Now,  set  the  flag  on  the  message  number  12. 
Mb  flag 

Mesaage  number  to  be  flagged?  12 


Tutor:  O.K.  Now,  liat  all  the  header*  of  flagged  meiaages  again. 
KM>  header*  flag 

FLAG  NUMBER  DATE  AUTHOR  SUBJBCT 

F  5  30-Jun  Tutor  Special  Note 

F  9  S-Jul  Gen.  S  Another  Special  Note 

F  12  10-Jul  Gen.  X  Task  #12 


Tutor:  Liat  all  the  header*  of  the  unaeen  metaage*  in  the  mail  box. 
VM>  header*  unaeen 

FLAG  NLMJER  DATE  AUTHOR  SUBJBCT 

U  10  5-Jui  Tutor  Exerci*e  #10 

U  11  7-Jul  Tutor  Delete  thi*  file 


Tutor :  All  right . 

Now,  lets  browse  the  message  number  10. 
Mb  type  10 


Message  10 

Mai  l_Frcan:  Tutor 

Date: 

Subject:  Exercise  #10 
To :  Kim 

This  is  the  content  of  message  number  10. 


Tutor:  Now,  jump  to  the  message  number  7  in  the  mail  box. 


MM»  jump  7 


Tutor :  All  right . 

Now,  lets  browse  the  current  message  in  the  mail  box  again. 
Mb  type 


Message  7 

Mail _F ram:  Gen.  Z 

Date: 

Subject:  Reply  Needed 
To :  Kim 
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This  is  the  content  of  message  number  7. 


Tutor:  Good. 

Now,  browse  the  next  message  in  the  mail  box. 
next 


Message  8 

MailJFrom:  Somebody 
Date : 

Subject:  Another  Garbage 
To :  Kim 

This  is  the  content  of  message  number  8. 


Tutor:  Now,  browie  the  previous  message  in  the  mail  box 
VM>  previuos 

Ooops!  You  mean  "previous"?  y 


Message  7 

Ms  i l_From:  Gen.  Z 

Dale: 

Subject:  Reply  Needed 
To:  Kim 

This  is  the  content  of  message  number  7. 


Tutor:  Good.  Now,  send  a  message  to  1Q8R1-KL. 

Tutor:  Now,  browse  the  previous  message  in  the  mail  box 
1M>  previous 


Message  11 

Ms 1 1 _From:  Tutor 

Date : 

Subject:  Delete  this  file 
To :  Kim 

This  is  the  content  of  message  number  11. 


Tutor:  Good.  Now,  send  a  message  to  J(2SRI -KL 

KM»  send 
To:  JtSSRI -KL 
Cc:  yee.liang 
Subj :  Good  news 
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Message  (end  with  ESCAPE  or  CIRL-D  or  CTRL-Z):  This  is  my  first  message. 
S>send 


Tutor:  Exe 1 1 en t . 

Now,  send  a  message  to  the  address  in  message  6 


Mh  type  6 


Message  6 
Mail_Frcm:  Tutor 
Date: 

Subject:  Exercise  #6 
To :  Kim 

Send  a  message  to  GKSNPS  . ARPA . 

NM>  send 
To:  CJ^SNPX  ARPA 
Cc  :  me  t  i  n 
Subj :  Task 

Message  (end  with  ESCAPE  or  CIRL-D  or  CIRL-Z) :  I  got  it,  sir. 
S>send 
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APPENDIX  B  -  SOURCE  PROGRAMS 


/*< 

h+**  +  ****4>*****M 

***/ 

/ * 

*/ 

/* 

Mo  du 1 e  Name  : 

TOPS20-NM 

*/ 

/* 

*/ 

/* 

Author:  Capt 

.Taewoo  Kim.  ROKA 

*/ 

/* 

*/ 

/*• 

».*/ 

/* 

TOP  comnands. 

*/ 

ac t i on{ I  op , he lp )  respond_he 1 p( t op) . 
ac t i on( top , 7  )  respond_help( top > . 
ac t i on ( t op , 1 ogou t )  halt. 

/*  t opac t i on ( 'mm'  )  */ 
ac t i on( top ,mn)  change_level(tnn)  , 
da  t  e  (Da  t  e  )  ,  t  ime  (Time  )  , 

coun  tup_mes sages  (me ssage(X,A,B,C,D.E>  ,M) . 

coun  t up  unseen  (met s  age (u.A,B,C,D,E),U), 

coun  t  upde 1 e t  ed  (me ssage(d,A,B,C,D,E) .Del ), 

nl,  writeCA.ISI.EDU.  internet  NM-20  6.1(1145)').  nl  , 

wfite('  Last  read:  ' ) ,wr  i t e(Da  t e ) ,wt  i t e (Time  )  ,wr  i t e (M)  , 

write(’  me  s sage s , ’  )  ,wr  i t e (  ‘  40  pages  '),  nl. 

wr i t e (U) ,wr i t e ( ’  messages  unseen;  ' ) ,wr i t e (De 1 ) , 

write('  deleted' ) ,nl  ,nl  , 

he  a de r s_un s e e n . 

heade  r  s_unseen  : - 

mes sage( u .A.B.C.D.E) ,  wr i t e_body (A.B.C.D.E) ,  fail, 
heade  r  s_unseen . 

date(  ’  5- Jun-88  ’  )  . 
t  ime  (’  11:15:20  '). 

ac t ion(X, t race )  trace. 

act ion( top.X)  : -  check_e r ror ( t op,X) . 


/*  NM  level  comnands.  */ 

/*  rrmac  t  ion(  '  answe  r  '  )  */ 

ac  t  i  on(trm,  answe  r  )  :-  re  spond_an  swe  r  . 

/*  rrmac  t  ion  (  'copy  '  )  */ 

ac t i on  (mm, copy )  -  respond_copy . 

/*  rrmac  t  ion (  '  de  I  e  t  e  ’  )  */ 
ac  t  i  on  (rim,  de  I  e  t  e  )  nl  . 

write(  ’Message  number  to  be  deleted?  ' ) . n ice read(Num)  , n 1  , 
convert(Num,  Int  )  , 

message(X,A,Inl .C.D.E), retract  (me  ssage(X,A,Int ,C,D,E>), 
a s se r t a (me s sage(d , '  D  ', In t ,C ,D,E )), n 1 , sor t_mes sage s . 

/*  rrmact  ion( 'exi  I '  )  */ 

ac t i on (nm.  ex i t )  :-  e r a se_de 1 e t ed . 

/*  nmac t ion( ' expunge ' )  */ 
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act  ion (mm, expunge)  era»e_de 1 e ted . 

e r a s e_de 1 e t ed  n 1 , re t r ac t  (me s » age ( d ,A,B ,C ,D, E) ) , f a i 1 . 

e  raae_de 1 e  t  ed . 

/*  mnact ion( ’ f lag’ )  */ 
ac  t  ion  (run,  f  1  ag )  nl, 

write(  'Message  number  to  be  flagged?  ' ) , n i ce read(Num)  ,nl , 
convert (Num.  In t ) , 

me i  sage (X, A,  Int  ,C,D,E)  .retract  (me  »  s  age  (X,A,  In  t  ,C,D,E) ) , 
as ser  t a (me  as  age ( f , ‘  F’,Int,C,D,E)),nl, sor  t_mes sages  . 

/*  mnact ion( ’ forward’ )  */ 
ac t ion(nm,  forwa rd)  :•  nl , 

t  write)  'Message  number  to  be  forwarded?  ’). 

nice re ad (Num) , nl , conver  t (Num, Int ) . 
me s sage (X. A,  Int .C.D.E) , 

a s ser  t a( fme  s  sage(X,  '  F’,Int,C,D,E)),nl. 

/*  mnact ion( 'heiders  all')  */ 
ac t i on  (mm, 'header s  ail’)  :• 
write_title,  headers_all. 
heade  r  s_a 11  :  - 

message(X,A,B,C,D,E) , 

((X  =  0,  B  <  10,  write('  ’),  write(B),  tab(4),  write(C),  tab(4), 

write(D),  tab(4),  wri te(E) , tab(4) ,nl ) ; 

(X  =  0,  B  >  9,  wri te_body(A,B, C.D.E) ; 

(X=a  :X=d  ;X=f  ;X=u ) ,  wr  i t e_body (A.B ,C,D,E) ) ) ,  fail. 
headers_al 1 . 

/*  mnact ion (' header s  answer’)  */ 
act ion(mn, 'headers  answer') 

write_title,  heade rs_answer . 
he ade r s_an swe  r 

me s s age ( a ,A.B , C.D.E) ,  wr i te_body(A,B, C.D.E) ,  fail. 
headers_answer . 

/*  mnact ion ( 'headers  current’)  */ 

act  ion(mn. 'headers  current’)  cur rent_msg(ChN) , 
message(X,A,(M4,C,D,E) ,  wri  t e_body (A.CMN.C.D.E)  . 

/*  mnact ion( 'headers  delete')  */ 
act ion(mn, 'headers  delete') 

write_title,  heade r s_de 1 e t e . 
header s_de 1 e t e  :  - 

message) d ,A.B, C.D.E) ,  wr i t e_body ( A,B,C,D,E) ,  fail, 
heade  r  s_de 1 e I e . 

/*  mnact ion( 'headers  flag’)  */ 
act ion(tmi, 'headers  flag’) 

write_title,  header s_f 1 ag . 
headers_flag  : 

message) f , A, B, C.D.E) ,  wr i t e_body (A. B, C.D.E) ,  fail. 
headers_f lag. 

/*  itmact  ion( 'headers  unseen’)  */ 
act ion(nm. ’headers  unseen’) 

write_title,  heade r s_unseen . 
header  i_umeen 

me s sage (u , A. B, C.D.E) ,  wri I e_body(A,B. C.D.E) ,  fail. 
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header  s  unseen . 
write  title  n  I  , 

wrT  t  e( '  FLAG  NLKBER  DATE  AUTHOR  SUBJECT*),  nl . 

wr i I e_body ( A,B .C.D.E) 

wr i t e(A) , t  ab(4 ) ,  wr i t e(B) , t ab(4 ) . 

wr  i te(C)  ,  tab(4) ,  wri te(D) , I ab(4 ) , wr i t e(E) . nl . 

/*  nmact ion( ’help* )  */ 

act  ionium, help)  re spond_he Ip (ran)  . 

ac  t  ion  trim,  7  )  re  apond_he  lp(nm)  . 

ac  t  i  on(Level  ,He  lp)  1  ong_he  lp_conmand(He  lp ,  Conmand ) , 

gi ve_def (Leve 1 .Conmand) . 

/*  nmact ion( *  jump* )  •/ 

ac  t  ion(irm,  JC)  :  -  1  ong_  j omp_conmand ( JC.fM) , 
hM  >  1.  I'M  <  13.  !  . 

cur  ren t_m»g(CM) ,  retract (curren  t  _msg(CM) ) . 
as  st  r  la  (  cur  rentjnjg(Nd) )  . 

action(nm,  JC)  1  ong_  j  ump_comnand(  JC.bM) , 

wr i t e ( 'Me  a s age  *),  write(hM).  write(*  does  not  exist.'). 

/*  nmact ioni ’ 1 i st ' )  */ 

act ion(nm,  1 i st  )  :•  re apond_l i s t . 

/*  nmact ion( *  logout ' )  */ 

act ion(mn, logout )  nrnac t i on( expunge ) ,  halt. 

/*  nrnac t ion ( 'move ’ )  */ 

ac  t  ion(tim,move  )  respond_move  . 

/*  nrnac t ion( ' next ’ )  */ 

act ion(nm,  next )  cu r ren t _msg(K)  ,  K<  12,  re t ract (current_msg(K) ) , 

Kpl  is  K+l ,  asser t aicur rent _m»g(Kpl ) ) ,  print2(Kpl). 
act  ionfmn.  next  )  wr  i  I  e  (  ’Mes  sage  currently  ends  at  nianber  12’).. 

/*  nrnac t ion( 'prev i ous ’ )  */ 

act ion(nm, previous )  cur ren t _rasgtK) ,  K>  1,  re t rac 1 1 cu r ren t _msgtK) ) , 

Kml  is  K- 1 .  as se r t at  cur ren t _mig(Kml ) ) ,  pr i n 1 2(Kml ) . 
act  ion  iirni, next )  wr  i  t e  (  'Me s sage  starts  from  number  1'). 

/*  mtiact  ion(  *qui  t  '  )  */ 

act iontnm.qui t )  change_l eve  1 1 1 op ) . 

act iontmn.q)  change_l eve  1 i t op ) . 

/*  nrnac t ioni ’ type ' )  */ 

act  ion  ittm,  type  )  cu  r  ren  t  _msg(K)  ,  print2(K). 

act ion(nm,C)  : -  current_msgiK3  ) ,  re 1 1 ac t icur ten t _msgiK3 )  )  , 

long_type_conmandiC,K) ,  asser ta(current_msg(K) ) ,  print2(K). 

/*  nmact ioni 'undelete* )  */ 
act ioninm, undelete)  nl. 

writei  ’Message  number  to  be  undeleted?  '). 
nicereadtNum)  . nl , conve r t (Num, Int ) , 

mes sage  id .A, int, B.D.E), retract (mes  sage ( d, A, In t ,B,D,E) ) , 
asser ta(mess age (0,0, Int , B.D.E) ) . nl , 
sor t_messages . 


23 


/*  nmact ion( ’unflag’ )  */ 
act  ion (mn,un flag)  nl  , 

write(  'Menage  number  to  be  unflagged?  '). 
niceread(Num)  , nl , conve r t (Num.  Int  )  , 

me  a  a  age ( f ,A,Int.B,D,E), re t  rac t  (me  a aage ( f ,A,  Int ,B,D,E) ) , 
aaaerta(meaaage(0,0,lnt ,B,D,E)),nl, 
aor  t _me  a  aagea . 

/*  Check  eror  */ 

act  ion(mn.X)  check_error (mn,X) . 


/*  Conmanda  at  SEND  level  */ 

/*  aendac t i on ( ' di apl ay ' )  •/ 

act ion( aend , di apl ay )  *end_di ap 1  ay . 

/*  aendac t i on( ' eraae * )  •/ 

ac t ion( aend ,eraae )  aend_eraae. 

/*  aendac t ion( ‘help’ )  */ 

act ion(aend, help)  reapond_he lp( aend) . 

ac t ion( aend , 7 )  reapond_he lp( aend ) . 

/*  aendac t i on( ’ aend ’ )  */ 

ac t ion( aend , aend )  aend_aend. 

/*  aendac t i on( ’ qu i t ' )  */ 

ac  t  ion  (  aend  ,qui  t  )  :  -  change..  1  eve  1  (mm)  . 

act ion( send, q)  :•  change_I eve  I  (tmi) . 

/*  aendac t ion( *  type ' )  */ 

ac t i on( send , type )  :•  aend_type. 

/*  Illegal  comnands  ♦/ 
act ion( send, X)  error(X). 

/*  Print  the  requested  message.  */ 

print2(Num)  :  -  me s s age (X, A,Num,C ,D,E)  , n  1  , n  1  , 

wri te( 'Message  ' )  ,wr  i t e(Num)  , n I  , 

wri  te(  'Mai  l_From:  ' )  ,wri  te(D)  ,nl  , 

write( 'Date  :  ’  ) , n 1 , 

wri te( 'Subject :  ’  )  ,wr i t e (E) , n I , 

wr i t e( 'To:  ’ ) , user (Name ) , nwr i te(Name ) , nl ,n 1 , 

message_content (Num, Con  tent),write(Content),nl , 

check_f lag(Flag,A,Num,C,D,E) , 

aor t_me  a aage a ,  I. 

check_f lag(u,A,Num,C,D,E) 

re  t  rac  t  (mesa age(u  ,A, Num, C,D,E) ) , 
a  a  ae  r  t  a  (me  a  aage  ( 0 ,  '  '  ,Num,C,D,E) )  . 

check_f  lag(X.A,Num,C,D,E)  . 

/*  count  the  number  of  each  messages  */ 

countup_meaaagea(meaaage(X,A,B.C.D,E)  ,M)  :•  a  a ae r t a( coun t e r ( 0 ) )  , 

ca 1 1  (mes sage(X,A,B,C,D,E) ) ,  counter(K),  ret rac t (count er(K) ) , 
K2  is  K+l,  asserta(counter(K2) ) ,  fail. 
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countup_mesaagea(me88age(X, A.B.C.D.E)  >1)  counter(M),  ret ract (counter(M) ) ,  !. 


count  up_unaeen(meaaage(u  .A.B.C.D.E) ,U)  aaa er t a( coun t e r ( 0) ) , 

cal  I (mesaage(u ,A,B.C.D,E) ) .  counter(K),  ret rac t (counter(K)  ) . 

K2  it  K+l,  aner  I  a(conn  t  er(K2)  )  ,  fail. 

countup_unaeen(mea sage(u , A.B.C.D.E) ,U)  counter(U),  re t r ac t (coun t e r (U) )  ,  ! . 

countup_deleted(meaaage(d, A.B.C.D.E)  .Del )  ai ierta(counter(0) ) , 

ca 1 1 (me i • age (d .A.B.C.D.E) ) ,  counter(K),  re t rac t (coun t er (K) ) , 

K2  ia  K+l,  aater t a (count er (K2 ) ) ,  fail, 
coun tup_de le ted(meaaage(d, A.B.C.D.E) ,De 1 )  count er(De  1 ) , 

re  tract (coun ter (Del )). t . 


/*  CEDES  PGR  SEND  OP.  •/ 

ac  I  ion  (mil,  aend)  change_leve  1  ( t  o )  . 
action(to.X)  aa ae r t a( rece i ve r (X) ) ,  I. 
action(cc.X)  : -  aaaer t a( cc rece i ver (X) ) ,  I. 
ac t i on( aub j ec I ,X)  aa aer t a (me a aage_aubj ec t (X) ) ,  I. 

act  ion (me  a  a  age  .X)  a  a ae r t a  (me  a aage (X) ) ,  I. 

act ion( ready_to_aend, aend)  1 aa t_aent_mag(LSM)  , 
current_date(CD) ,  receiver (Rname  ) .  meiaage(M), 
aa  aer  tz(  aent_meaaage(  a  ,  ’  '  .LSM.Da  t  e  .Rname  X)  ) , 

re  t  rac  t  ( I  aa  t  _een  t_mag(LSM) ) .  NLSM  ia  LSM  +  1, 
aaaertz(laat_aen t_mag(NLSM)  ).  retract) rece i ver (Rname  ) ) , 
ret ract ( cc rece i ver (OCR)  ),  re t rac t (me  a  a  age (M) ) , 
re t rac t (me  a  a age_aub j ec t (K6 ) )  .  !. 

cur ren t_da t e( ’  14-Apr-88  ’). 

/*  aorta  meaaagea  with  meaaage  number  */ 

aor  t_mesaagea  bagof  (N,A*B'>C"D"E'mea aage (A.B.N.C.D.E)  .L) , 

aort(L.SN),  aortl(SN),!. 

aortl(SN)  firat(SN.F) .me  e aage ( A.B . F.C.D.E) .retract  (meaiage(A.B.F.C.D.E) ) , 

aaaer  t  z (me « aage (A.B ,P ,C,D,E) ) ,  de  le  t  e(F,SN,NSN)  ,  aor  t  l(NSN)  . 

aor  t 1 (SN) . 
firat([XIL).X). 
de I e  t  e (X ,(),[]) . 

de I e  t  e (X. |XI L]  ,M)  I.  de 1 e t e (X.L X) . 
delete(X,  [YIL] ,  IYIMJ )  de  le  t  e(X.LX)  • 

/*  read  in  each  character  and  convert  it  into  iiat  of  ASCII  codea  */ 

/*  until  carriage  return  ia  preaaed.  */ 

niceread(L)  checkre t rac t ( readbuf f (L2 )) ,  aaae r t a ( readbuf f ( [ ] ) ) , 

niceread2(L) , I . 

niceread2(L)  getO(C),  nice read3(C.L) . 

/*  niceread3(32,L)  niceread2(L) .  <»  ignore  the  apacea.  */ 

niceread3( 10, L)  : -  1,  readbuf f(L2 ) ,  revet ae (L2 ,L) . 
niceread3(C,L)  readbuf f (L3 ) ,  re t rac t ( readbuf f (L3 )) , 

a  a ae r t a ( readbu f f ( [CIL3] ) ) ,  niceread2(L) . 

checkre t rac t (S )  call(S),  retract(S),  1. 
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checkre  t rac t (S ) . 

reverse(L.R)  reverie2(L, [ ] ,R) . 
reverse2( [ J ,L.L)  : -  ! . 

rever se2( [XILJ ,R,S)  reve r se2(L, [XIR] , S ) . 
convert ( [CIT] , Int )  :-  T  =  [],Int  if  C-48. 

convert ([CIT],lnt)  : -  T  >47 .  T  <  58 .  Int  if  ( ( (C-48 ) * 10)+(T-48 ) ) . 
convert ( [CIT] , Int )  nwr i t e( [CITJ ) ,wr i t e( ’  <«=  Invalid  inputl*),nl. 

/*  code  for  reading  the  mefcage  uter  typec  in  aa  a  lift  of  liftf.  */ 

read_meat age(L)  : - 

wri te( 'Please  type  your  mettage;  terminate  with  a  cont rol -X.  ’ ) ,  nl, 
write(’  and  a  carriage  return.’),  nl, 

read_met a age2(L) . 

read_me> cage2( [XIL] )  niceread(X),  read_me» a age3(X,L) . 
read_me t > age 3 (X,  [ ]  )  :-  terminat ion(X)  ,  !. 
read_mea a age3(X,L)  :-  read_meaa age2(L) . 
terminat ion (L)  :•  last (L, 24). 

1 aa  t ( [X] ,X)  :-  !. 

I  as  t { [XILJ ,Y)  laat(L.Y). 

/*  write  the  message  lift  ==>  each  sublist  at  a  separate  line.  */ 
wri te_message( [ ]  )  !. 

wri te_message( [XIL] )  writel(X),  nl ,  wr i t e_mes a  age (L) . 
wr  i t  e 1 ( [ ] ) . 

wr i lel( [XI IL1 ] )  put(Xl),  writel(Ll). 

/*  write  the  list  of  ASCII  code  into  character  string.  •/ 
nwr  i  t  e (  [  ]  )  . 

nwri te( [XIR] )  put(X),  nwrite(R). 

/*  message  headers  */ 


message(0, ' 

’  .  1,  ’25-Jun’ . 

’Tutor 

’ , 'Exerc i se  #1  ’ ) . 

message(0, * 

,2, ’27-Jun’ , 

Gen.  X 

'.’Task  #2'). 

me s sage (d , '  D 

’  ,3. ’28-Jun’  , 

'Tutor 

'.’Garbage'). 

me  s  sage ( a , ’  A 

,4, ’29-Jun’ , 

’Gen.  Z 

’, 'Reply  Needed’). 

message) f  ,  '  F 

’  ,5, ’30-Jun’ , 

'Tutor 

’ , 'Special  Note ’  ) . 

me  s  s  age (0 , ' 

’,6,’  1-Jul’, 

’Tutor 

’ , ’Exerci se  #6’ ) . 

message)* , ’  A 

, 7 , ’ 30-Jun ’ , 

'Gen .  Z 

’ , 'Reply  Needed’  ) . 

message(d, ’  D 

,8,  ’  3-Jul ’ , 

'Somebody 

*, 'Another  Garbage'). 

message) f , ’  F 

,9, ’  5-Jul  ’  , 

'Gen .  S 

'.’Another  Special  Note’) 

mes  sage(u , 'U  ' 

,10,’  5- Jul ’ , 

'Tutor 

' , 'Exerci se  #10’ ) . 

message(u , 'U 

,11,’  7- Ju 1 ’ , 

'Tutor 

’.’Delete  this  file'). 

message(u  ,  ’U 

,  12, ’ 10- Jul ' , 

Gen.  X 

’.'Task  #12'). 

/*  contents  of  messages  */ 

message_content ( 1 , ’  This  is  the  content  of  message  number  1.'). 

met sage_con tent (2, '  This  is  the  content  of  message  number  2.’). 

message_content (3, ’  This  it  the  content  of  message  ntanber  3.’). 

met sage_content (4, ’  This  is  the  content  of  message  number  4.'). 

mes sage_con t en t ( 5 , ’  This  is  the  content  of  message  number  5.’). 

met sage_con tent (6, ’  Send  a  message  to  GHgNPS  ARP A. ’ ) . 
mess age_content (7 , '  This  is  the  content  of  message  number  7.'). 

message_con t en t (8 , ’  This  is  the  content  of  message  number  8.'). 

mess age_content (9, ’  This  is  the  content  of  message  number  9.’). 

met sage_content ( 10, '  This  is  the  content  of  message  ntanber  10.') 
met sage_cont en t ( 1 1 , ’  This  is  the  content  of  message  ntanber  11.’) 
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mesaage_content( 12, ’  Thi» 
Since  you  have  seen  thia 

apace  I ( ’  *  )  . 
apace2( ’  '). 

apace3(  ’  ’  )  . 

apace4( '  '). 


ia  the  content  of  mcaaage  number  12. 
meaaage ,  the  unaeen  flag  will  be  removed. 


I 

’ 


i 
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Module  Name:  TUTOR 


/ 

/ 

/ 

/ 

/ 

/ 

/ 


Author:  Prof.  Neil  C.  Rowe 


*/ 

•/ 

•/ 

•/ 

•/ 

*/ 

*/ 


/*  Problem- independent  code  for  "meana-endi  tutoring":  tutoring  for  */ 

/*  learning  of  sequences  model  able  by  meani-enda  anaiyaia.  */ 

/*  For  an  application,  you  muat  define:  */ 

/*  (1)  reconmended(<difference>,<operator>)  --recommendation  conditiona  */ 

/*  (2)  precondi t ion(<operator>,<fac t 1 i a t>)  --precondition  facta  */ 

/*  (3)  de le I epoa t condi t ion(<opera tor>,<f ac t 1 i a t>)  or  */ 

/*  deletepoatcondit i on (Cope ra t or> ,<condi tionliat>,<factliat>)  */ 

/*  --gives  facta  deleted  by  op.;  3-arg.  form  requires  additional  facta  true  */ 
/*  (4)  addpoa tcondi t ion(<operator>,<f act  1 i a t>)  or  */ 

/*  addpoa tcondi t ion( <operator>, ccondi t ion  1 i a t>,<f act  1 i a t>)  */ 

/*  --gives  facts  added  by  op.;  3-arg.  form  requirea  additional  facta  true  */ 

/*  Some  optional  definitiona  you  may  include:  */ 

/*  (3)  randsubs t (cop . >, (csubs t 1 i a t l>,ceuba t 1 i a t 2>, . . . J )  */ 

/*  --gives  random- aubat i tut  ion  triples  or  quadruples,  each  in  the  form:  */ 

/*  [<initial-fact>, cendi ng • f  ac  t >,<t  rans i t i on -p rob . > ,  one  a  sage  to  user>  */ 

/*  Note:  first  and  second  arguments  can  be  the  word  "none";  */ 

/*  fourth  argument  ia  optional.  */ 

/*  (6)  nop r e f ( cope r a t or 1> . cope r a t or2> )  --if  the  order  (priority)  of  two  */ 

/*  operators  in  the  " reconmended"  rules  was  arbitrary,  include  this  fact  */ 
/*  (7)  in t ro(c t ex t > )  • • in t roduc t ory  info  for  student  */ 

/*  (8)  debugflag  --if  asserted,  debugging  info  printed  re  means-ends  anal.  */ 


tut  or (St  ate .Goal )  :- 

not (check_obvious_errora ) ,  i  ssuewarnings ,  randinit, 
uniqueasaer  t ( I op_goal (Goal ) ) , 

bagof (X.P'precond i t ion(X,P) ,XL) ,  unique a  a  aer t (op_l i a  t (XL) ) , 
once_means_ends (S t  a  t  e ,Goa 1 ,Opl i a 1 2 .Goal  a  t  a  te2) , 

uni queasser t ( t op_sol u t ion(State)ist)),  abol i sh(ma inline. states, 4), 
means_ends_t ut or (S t  at e .Goal ,Op list .Goal  a  t  a te , [ ] ) , 
nl ,  n  1 ,  !  . 

t u t or (S t a t e ,Goa 1 )  :- 

write('Too  bad:  a  solution  ia  now  impossible.'),  nl ,  !. 

means_ends_t u tor (St a te ,Goa 1 , [ ] ,S t a t e ,St sck)  di f f erence(Goa 1 ,S t a t e , [ ] ) ,  !. 

means.ends  t u t or (S t a t e ,Ooa 1 ,Op 1 i s t ,S t a t e , S t ack)  :-  member ( [State .Goal ], St ack) , 
!  ,  fail. 

means_ends_tut or (St  a  te .Goal .Op  I ist.Goalstate. Stack)  :- 

not (once_means_ends(St at e .Goal ,Opl i a t .Goal s t a t e ) ) ,  t,  fail. 

means_ends_tutor(St a t e .Goal ,Opl i s  t .Goal  state .Stack)  : - 
difference (Goal .State.D) , 
appl icable_op(D,Op) , 
precondi t ion(Op,Prel i st ) , 
al l.achievabl e(St a  te ,Prel i s  t ) .  ! , 

means_ends_t ut or (St  at e ,Pre 1 i a  t , Preop l ist, Pre state, ([State, Goal]IStack]), 

I,  me t (St  at  e .Goal ,Opl ist.Goalstate, Stack, Prelist, Preop  list, Prestate  ,Op  ,D) . 
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me  I (St  at e .Goal , Preopl i at .Free  late . Stack. Preliat , Preop  1 ist .Predate ,Op ,D) 
di  f  ference(GoaI  .Predate  ,(]) .  !. 

me t (St  ate  .Goa  1 ,Opl id .Goals  tate, Stack, Prelist .Preopl ist, Prestate, Op, D)  :  - 
dif ference(Goal .Prestate. D2) ,  not ( appl icable_op(D2,Op) ) ,  !, 
means_ends_t u tor (Pres  tate .Goal ,Opl ist2,Goalstate,[]), 
append (Pre op  1 i s  t ,Op 1 i s  1 2 ,Op 1 ist). 

me  t (St  ate ,Goa 1 ,Opl i s  t .Goa  1 s t  at e .5  tack .Pre 1 ist .Preoplist .Pres  t  at e ,Op  ,D)  : 
check_wi  th_s  t  uden  t  (Op  .Pres  t  ate  .D.NenOp) , 
ge I _de let  epos  t condi t ion(Ne«Op .Pre  s t  ate ,De le tepos t list), 
de le  t e i terns  (De  let  epos t list, Pr estate, Prestate2), 
ge  t _addpoi t  condi l ion(Ne«Op .Prestate, Addpostlist ) , 
unicn(Addpos  t list ,Prestate2,Postlist2), 
do_ rand subs t (NewOp ,Postlist2, Postlist ). 
check_mainl ine_return( Postlist),  t, 

/*  Note  last  arg.  below  empty  to  allow  for  randsubst  returning  to  past  state  */ 
means_ends_t u tor (Pos 1 1 i s  t .Go a  1 ,Pos  f opl i s  t .Goal  state,!]), 
append  (Preopl  ist,  (NevtOp  I  Po  s  t  op  list]  .  Op  list  ) . 

do_intro  intro(T),  write(T).  nl.  1. 

do_int  ro. 

/*  Problem-definition  errors  */ 

check_obvious_errors  se t of ( [M. A] , obv i ous_e r ror (M, A)  .MM.) ,  !, 

wr i t  epa i r 1 i s  t  (MAL ) . 

obv i ous_e r ror ( ' precond i t i on  fact  missing  for  operator  ’ .O) 
recomnended(D.O) ,  not (precondi t ion(O.L) ) . 

obvious_error( ' de 1 e tepos t cond i t ion  fact  missing  for  operator  ’ .O) 
reconmended(D.O) ,  not (ge t_de I e tepos  t condi t ion(O.S ,L) ) . 

obvious_er ror (' addpos t condi t i on  fact  missing  for  operator  ’ .O) 
recornnended  (D.O) .  not (ge t_addpos  t condi t ion(O.S ,L) ) . 

obvious_error( '"recommended"  fact  missing  for  operator  ’  .O) 
precond i t ion(t ,M ,  not ( recomnended(D.O)  ) . 

obvious_error( ’"recornnended"  fact  missing  for  operator  ’ .O) 
ge t_dcle tepos  t condi t ion(O.S.L) ,  no t ( recornnended (D.O)  ) . 

obvious_error( recornnended"  fact  missing  for  operator  ' .O) 
ge t_addpos t condi t ion(O.S ,L) ,  not ( reconmended(D.O) ) . 

i ssue_warnings  se t of (  [M,  A] , poss ibl e_er ror  (M.  A)  .MAL) .  I, 

wri  te(  'Warnings : ’ ) ,  nl ,  wr  i t epa i r 1 i s t (MAL) ,  nl. 

i s sue_wa rn i ngs . 

possible_error( ’This  fact  is  not  creatable:  ’ ,F)  precondi t ion(0, PL) , 

backt  racki ng_meir.be r (F, PL)  ,  uncreatable(F). 

wr  i t epai r I i s  t ( [ ] ) . 

wri t epai rl i s t ([ jx.Y] IL] )  write(X),  write(Y).  nl  ,  wr i t epa i r 1 i s t (L ) . 

/*  Handling  of  randomness  */ 

do_randsubs t (O.S ,NS )  randsubst (O.RL) ,  !,  do_randsubst2(RL,S,NS) . 

do_ rand sub st (O.S.S) . 
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do  randsub* t 2( [] >S •$ ) - 

do~randsubs t 2( [ (F.NF.PJ IL] ,S,NS)  random(  1000 ,K) .  P1000  is  PMOOO, 
K*<P1000,  change s t a te(F,NF,S ,S2 ) ,  !,  do_randsubs t2(L,S2 ,NS) . 
do_randsubs t2( [ [F,NF,P,M] IL] ,S,NS)  random( 1000.K) ,  P1000  ii  P*I000. 

K«<P1 000,  change* tate(F,NF,S,S2) ,  1,  write(M),  nl,  do_ rand«ub» t 2 (L , S2 ,NS) . 
do_randsub*t2( [CIL] ,S,NS)  do_randiobi t 2(L,S ,NS) . 

change* t a te(none ,NF,S, [NFIS] )  :-  !,  not  (member (NF,S) ) , 
wri te( 'Random  change  made:  ’),  nl .  !. 
changes tate(F, none ,S ,S2)  !.  member(F.S), 

wri te(  ’Random  change  made:  ').  nl,  I. 
changest ate(F.NF,S, [NFIS3] )  :-  I,  member (F,S ) , 
wri te( 'Random  change  made:  ’),  ni ,  (. 

peimu t at ion( [ ) . (I )  :-  I. 

pemiutat ion(L, (IIPLJ)  :-  randi tem(L, I ) ,  de 1 e t e( I ,L,L2) ,  peimu t at ion(L2 ,PL) . 

randi  tem(L,  I )  :-  lengtb(L.N),  random(N,K),  item(K,L,I). 

randinit  :-  C  is  cpu t  ime* 1000 ,  PC  is  floor(C),  S  is  PC  mod  2311, 
uniqueassert ( randseed(S) ) . 

random(N.K)  :-  randseed(S) ,  next rand(S ,NS) ,  K  is  NS  mod  N, 
retract(randseed(S>) ,  asserta(randseed(NS)) . 

next rand(S.NS)  :-  FfC  is  100*cpnt ime ,  IC  is  floor(FIC), 

S2  is  ((S*S)+IC)  mod  2311,  S3  is  <S2*S2)  mod  2311,  NS  is  (S3*S)  mod  2311 

item(K.n.I)  :-  !.  fail, 
i  t em(K,  [XIL]  ,X)  :-  K-<1 ,  !. 

i  t  em(K,  [XIL]  ,Y)  :  -  Kml  i  s  K- 1 ,  i  tem(Kml  ,L,Y)  . 


/*  Tutoring  rules  */ 

/*  hand  1 e_s t uden t _op  rules  have  been  added  to  the  original  code  */ 
check_wi th_s t uden t (O.S ,D,NO)  :- 

member(levet(Current_Level ) ,S) , 
t  e  imp  romp t (Curren t_Level ,P),  write(P), 

n  ice  read  (LComnand  ) ,  name  (SComnand  .LCotimand) , 
02  .  [c enrol nd ,Current_Leve I .SComnand} , 

h and 1 e_st uden t_op(02 ,0,S ,D,ND) ,  ! . 

handle_student_op(0,0,S,D,0)  :-  O  = . .  {P,CL,03] ,  !,  ac t ion(CL.03 ) ,  !. 

handle_student_op(O2,O,S,D,N0)  :-  02  =. .  {P.CL.C1 ,  helpword(C),  !, 
respond_help((X) ,  !,  check_wi th_s t uden t (O.S  ,D,N0) . 

handle_student_op(O2,O,S,D,N0)  :-  02  [P,CL,C],  he lp_t ask(C) ,  I, 

check_with_student(O,S,D,N0) . 

handle_student_op(02,0,S,D,0)  02  .  {P,L,C],  mstop(C),!,  halt. 

handle_s tudent_op(02 ,0,S,D,0)  :-  02  =..  [P,L,C] ,  mabort(C),!,  abort. 

hand! e_» t uden t_op(02  ,0, S  ,D,NO)  : -  02  =..  [P,L,C],  mtrace(C),!,  trace. 
check_wi  th_student  (O.S.D.ND) . 

handle_student_op(02  ,O,S,D,N0)  :-  level(Level ) ,  check_error(Level ,02, NO) , ! , 
check_wi th_s tuden t  (O.S  ,D,NO) . 
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handle_student_op(02.0,S,D,N0)  op_li»t(OL),  not ( i i ng lemembe r  (02 ,0L) ) ,  f, 
wr  i te( ‘Tutor :  Not  a  valid  operator- -please  choose  one  of  the  following:  ') 
leve 1 (CL) . 

re spond_he lp(CL) ,  check_wi th_s tudent (O.S.D.NO) . 

hand!e_etudenl_op(02,0,S,D,ND)  :-  precondi t ion (02 ,P02) ,  di f f e rence (P02 ,S ,D2 ) 
not(D2»(]><  wri te( ’Tutor :  That  operator  requires  that  '), 
wr  i t el i a t (D2  .precond) ,  write(*.‘),  nl, 
check_with_student(0,S,D,NO) . 

handle_student_op(02,0,S,D,ND)  apply_op(02,S,S) , 
wri te( 'Tutor :  That  will  not  affect  any t h ing . ’ ) , n 1 , 
check_wi th_s t uden t (O.S.D.ND) . 

handl e_s t udent _op(02 ,O.S ,D,NO)  :-  appl y_op(02  ,S . S2)  ,  top_goal(G), 
not (once_means_ends (S2 ,G,0L2  ,GS2 ) ) ,  I , 

wr i t e ( 'Tu t or :  You  cannot  ever  succeed  if  you  do  that.'),  nl, 
check_wi th_atudent(O.S ,D,ND) . 

handl e_s t uden t_op(02 ,0,S ,D, 02 )  :-  top_goal(G),  app I y_op(O.S ,S3 ) , 
appl y_op(02 ,S ,S2 ) ,  camp a re_solu  t ion a (S3  ,G,0L3  ,GS3 ,S2  ,G,OL2  ,GS2) , 
subsequence ( (OIOL3J  ,OL2) ,  t,  app 1 y_ops ( [OIOL3 ] , S , SL ,GS4 ) , 
e I imdups (SL ,ESL) ,  as »e r t a(ma i n I ine_s t a t es (ESL.02 . S.O) ) , 

wr  i  t  e  ( 'Tu  t  or  :  That  does  not  seem  itrmedi  a  t  e  1  y  helpful,  but  I  will  try  it.') 
nl,  02  =..  [P.CL.03] ,  !.  act ion(CL,03) . 

hand  1 e_s t uden t _op(02 ,0,S ,D, 02 )  :-  ( nopref (02 .0) : nopre f (0,02 ) ) ,  I, 
write('O.K').  nl,  02=. . [P.CL.03] .  act ion(CL,03 ) . 

handle_student_op(02.0.S,D,02)  top_goaI(G), 

one e_mean s_enda ( S ,G ,0L . FS ) ,  no t  (member (02  ,0L) ) ,  !. 

wri te( 'Tutor :  I  will  try  it.  but  it  it  not  recommended  for  the  problem.'), 
n 1 ,  02  « . .  IP.CL.03] ,  !,  ac t ion(CL,03 ) . 

handle_student_op(02,0,S.D,02)  top_goal(G),  d i f f e rence(G,S  ,D2 ) , 

al l_achievable(S,D2) ,  appl icable_op(D2,03  ) ,  precondi t ion(03 ,PL) , 
least_comnon_op(S,G,0,02,PL.Groot )  ,  !  , 

wri te( 'Tutor :  1  will  try  it,  but  it  ia  not  recommended  first  when  ’), 

difference(Groot.S,D5),  del e  te_unc  rea  t abl e(D5  ,D6 )  , 

pe  imu t a t ion (DO ,D7 ) .  wr  i t e 1 i s t (D7  .precond) ,  write('.’),  nl, 

02  =. .  [P.CL.03] ,  ! . 
act  ion(CL,03) . 

handles tudent_op(02 ,0,S ,D,02 )  :  - 

wri te( 'Tutor :  Not  the  operator  I  would  choose,  but  let  us  try  it.'),  nl  , 

02  =. .  [P.CL.03],  ! , 
ac  t  ion(CL,03  )  . 


termprompt  ( top,  ) . 
t  e  imp  romp  t  (mu,  ’). 

termprompt ( to, 'To:  ’). 
termprompt (cc , 'Cc :  ’). 

termprompt ( subject , 'Subj :  ’). 

termprompt  (me  as  age, 'Message  (end  with  ESCAPE  or  CTRL-D  or  CTRL-Z) :  '). 
termprompt ( ready_to_send, ’S>' ) . 


helpword(he Ip) . 
helpword(h) . 
helpword(huh) . 
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he  I pword( 7  )  . 
me top(hal  t ) . 
ms  top( logout ) . 
mabor  t ( abort ) . 
help_t aak( ’ 7 1  aak’ ) . 
mt  race( t  race ) . 


/*  Intermediate  predicates  used  by  the  tutor  */ 

I  eas  t_cornnon_op($,0.0,02  ,02  ,G)  once_means_ends  (S  ,02  ,OL,NS)  , 

(not  (member (0,0L) ) ;  not  (mcmbe r (02 ,0L) ) ) ,  I. 

least  comnon_op(S, 0.0, 02,02, Droot )  di f f erence(G2 ,S,D) ,  al l_achievable(S,D) , 

appl i cabl e_op(D,03 ) ,  precondi t ion(03 ,03 ) , 
least_conmon_op(S, 02,0, 02, G3, Droot ) ,  1 . 

compare_so  I  u  t  ions  (S3  ,G,OL3  ,0S3  ,S2  ,0,OL2  ,GS2)  :• 
once_means_ends (S3 ,G,OL3 ,OS3 ) , 
once_means_ends(S2,G,OL2,GS2) .  t. 

cache_states(S.G, (] ,GS )  !. 

cache_states(S,G.OL,GS)  cached(S .G.OL.GS) ,  !. 

cache_states(S,G,OL,GS)  :•  c ached ( S2 ,02 ,0L2 ,GS2 ) ,  check_pe rmu t a t i on (S , S2 ) , 
check_pe  imu t a t ion(G.G2 ) ,  !. 

cache_states(S.G, [0I0L] ,GS)  asse r t a(cached(S ,0, [OIOL] ,GS) ) , 

apply_op(O.S ,NS) ,  cache_s t a t es (NS ,Q,OL,GS) ,  !. 

apply_ops( [ ] ,S, [S] ,S)  !. 

apply_ops( (OIOLJ ,S, [SISL] ,NS)  apply_op(0,S ,S2 ) ,  apply_ops(OL,S2,SL,NS) . 

appl y_op(O.S .NS )  ge t_de le t epos t condi t ion(O.S .DP) ,  de le t e i terns  (DP.S ,S2) , 

ge t  addpos t cond i t ion(O.S.AP) ,  un i on ( AP, S2 ,NS ) ,  I. 

check_mainl ine_return(S)  ma i nl ine_s t a t es (SL .O.OS ,B0) , 
check_mainl i ne_re t urn2(S ,SL tO,OS ,B0) . 

check_mainl i ne_re t urn(S ) . 


check.mainl i ne_re t urn2(S . [S2ISL] .O.OS, BO)  permu t emember ( S , [S2] ) , 

!,  write('You  are  returning  to  a  previous  state.’),  nl. 

check_mainl i ne_re t urn2(S ,SL .O.OS ,B0)  permu t emembe r ( S . SL) .  !. 

write(’Do  you  see  now  that  your  choice  of  the  ’),  write(O), 
write('  action  in  the  state  with  the  facts  [’),  wr i t e 1 i s t (OS , s t a t e ) , 
write('J  was  not  the  best  choice;  the  ’),  write(BO), 
write(’  action  would  have  been  better.’),  nl, 
retract (ma in  1 i ne_s  t  a  t  es (SL.O.OS ,B0) ) . 


/*  Natural  language  output  */ 


wr i t el i s t ( [ ] ,R)  : -  !  . 

wr  i  t e  1  i s t (  [X]  ,R)  !.  wri tef act (X.R) . 

wr i t e 1 i s t ( [X.Y] ,R)  !,  wr  i t ef ac t (X.R) ,  write(’  and  '),  wr i t e f ac t (Y.R) , 

writelist(L.R)  wri tel ist2(L,R) . 

wr  i  t el i a t2(  [X]  ,R)  !,  write('and  ’),  wr  i t ef ac t (X.R) . 

wr i t el i s t2(  [XIL]  ,R)  wr i t e f ac t (X.R) ,  write(’,  ’),  wr i te 1 i s 1 2(L,R) . 

writefact(F, state)  atom(F).  write(F).  write(’  is  true'),  !. 


wr  i t ef  ac  t ( no t(F), state) 
writefact( no t(F). state) 
write(IX),  write(’not 
wr  i tef act( no t(F), state) 


-  at om( F ) ,  ! 
F-. . (P,X]  , 
’  ) ,  wr i t  e ( P ) , 
F=. . [P.X]  , 


,  wri  te(F) . 
atom(X),  ! 

!  . 

!  , 


wr  i t  e ( '  is 
wri te(X) . 


false'),  !  . 
i  s_form(X,  IX) , 


wri  tefact(X) ,  i s_f orm(X.  IX) . 
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write(IX),  write(’not  ’),  write(P).  !. 
wr i t ef ac t (not (F) , s t at e )  F*. . IP.X.Y] ,  !.  write(X),  write(’  not  '), 

write(P).  write!’  ’),  write(Y),  f. 

wri tefact (F, state)  F»..[P.XJ.  atom(X).  I.  write(X),  i s_f orm(X,  IX) , 
write! IX),  write(P),  !. 

wr i t ef ac t (F, s t at e )  F=..[P,X],  !,  wri tefact(X,  state) ,  i s_f orm(X,  IX) , 

write(IX),  write(P),  I. 

wr i t ef ac t (F, s t a t e )  F“..[P,X,Y],  I,  write(X),  write(*  ’), 

write(P).  writeC  ’).  write(Y),  I. 

wri tef act (F.precond)  atom(F),  write(F),  write!*  mast  be  true’),  t. 
wr i t ef ac t (not (F) .precond)  atom(F),  I,  write(F),  write(’  mast  be  false'),  ! 
wr i t ef ac t (not (F) .precond)  : -  F*..[P,XJ,  atom(X),  !,  write(X), 
write('  must  not  be  '),  write(P),  I. 
wr  i tef ac t (not (F) .precond)  F«..[P,XJ.  !,  wr  i t ef ac t (X,  s t a t e ) , 
wr  i  t e (  '  mast  not  be  '),  write(P),  !. 

wr i t ef act (not (F) .precond)  F«..[P,X,Y],  1,  write(X),  write(*  must  not  be  ’) 
write(P).  write(’  ’),  write(Y).  !. 
wri tefact (F.precond)  F-..[P,X],  atom(X),  !.  write(X), 
write!'  must  be  ’).  write(P),  !. 
wr i tef ac t (F.precond)  F«..[P,X],  !,  wr i t ef ac t (X.  s t a t e ) , 
write(’  must  be  ’),  write(P),  !. 

wri tefact (F.precond)  F«..[P,X,Y],  write(X),  write!’  must  be  ’),  write(P), 
write('  '),  write(Y),  1. 
wr i t e f ac t (F.op )  write(F),  !. 
wr  i tef ac t (F.R)  write(F). 
i  s_form(X,  ’  is  ')  :  -  not  (  atotn(X) ) ,  I. 
is_form(X.’  are  ’)  name (X, NX) .  1  as t (NX, 1 15 ) ,  !. 

i s_form(X,  '  is  ' ) . 

/*  The  original  means-ends  program  (used  for  "what  if”  reasoning)  */ 

once_mcans_ends(St  at e .Goal ,Opl i s  t .Goa  1 s t  at  e )  :  - 
means_ends(State .Goal ,Opl i a  t .Goa  1  state ) , 
cache_s  tales (St  ate .Goal ,Opl i s  t .Goal  state),  I . 

means_ends(St ate, Goal ,Opl ist.Goalstate) 

mean  s_end s2 ( S  t  a  t  e .Goa  1 ,Opl ist.Goalstate, []),  writedebug7. 

me  an s_end s 2( S t  a  t  e .Goal ,Opl i s t .Goa Istate, Stack)  : - 

cached(St  a t  e2 .Goal  2 .Op  I ist.Goalstate),  check_permu t a t ion (Goa  I .Goal  2 ) , 
check_permu t a t i on(St at e ,St a t e2 ) ,  1,  wr i t edebug6( S t ack) ,  I. 

me  an s_end s 2 ( S t a  t e .Goa  1 ,Opl ist.Goalstate  .Stack)  : -  member ( [State .Goal ] ,St  ack  )  . 
!,  wri tedebug4(Stack) .  fail. 

means_ends2(St a t e .Goal , [ ] ,St at e ,S t ack )  di f f e rence(Goal .State ,[]) ,  !. 

means_ends2(S t  a  t e .Go a  I ,Op 1 ist.Goalstate, Stack)  di f f erence (Goal , S t  a t  e ,D)  , 

appl i cab le_op(D, Opera  tor ) ,  precondi t ion (Opera t or .Prelist ) , 
al l_achievable(St  ate ,Prel i s  t ) ,  wri tedebugl(D, Opera  tor .Stack) , 
means_ends2(St  at e ,Pre list .Preoplist .Prestate, [[State, Goal] ISt  ack] ) , 
wri tedebug2(Pres t a te.D, Opera  tor .Stack). 

get_de let  epos  t condi t ion (Opera  tor .Prestate ,De  let  epos  t list), 
de le t e i terns  (De  let  epos  t list, Pr estate, Prestate2), 
ge t_addpos  t  condi t ion (Opera t or .Pres  tat e .  Addpos  t list). 
union(Addpost list, Prestate2, Postlist), 

means_ends2(Pos  t list .Goal .Post  op  list .Goalstate, [[State .Go a  I ] ISt  ack] ) . 

wr i t e debug 3 (Goa  I  state .Operator .Stack) , 

append (Preopl i s  t , [Ope ra tor  I Pos top list], Oplist). 
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means _ends2(S t  ate ,Goa I ,Op 1 i s  t , Go ilatate, Stack)  :  - 
wr i I edebugS(St a t e .Goal ,St ack) ,  !,  fail. 


/*  Debugging  tool*  */ 

wri tedebugl(D, O, Stack)  not ( debugf 1 ag ) ,  t. 

wri tedebugl(D.O, Stack)  1 engt h(S t ack ,Nnl ) ,  N  is  Nnl+ 1 ,  wr i t e( ’»Ope r a t or  ’) 

write(O),  write(’  suggested  at  level  ’),  write(N),  nl, 

writef'to  achieve  difference  of  [')•  wr  i  t e 1  i  1 1 (D,  a t a t e ) ,  writef’]'),  nl  ,  !. 

wri tedebug2(S,D.O, Stack)  not (debugf lag) ,  I. 

wr  i  t  edebug2(S  ,D,OtSt  ack)  1  eng  t  h(S  t  ack  ,Nni ) ,  N  is  Nnl+1, 

wri te( ’»Operator  ’),  write(O),  write(*  applied  at  level  '),  write(N),  nl  , 
write(’to  reduce  difference  of  [’),  wr  i  t e  1  i  a t (D,  s t a t e ) ,  write(*]*),  nl , 
wri te( 'in  state  in  which  '),  wr i t e 1 i s t (S , s t a t e ) ,  nl.  !. 

wri tedebug3(S.O, Stack)  not ( debugf 1 ag ) ,  I. 

wr  i t edebug3 (S  ,OtS t ack )  length(St ack  .Nnl ) .  N  is  Nnl+1,  wr  i t e ( ’»Leve 1  "), 
write(N),  write('  terminated  at  state  in  which  '),  wr  i t e 1 i s t (S , s t a t e )  ,  nl  ,  ! 

wri tedebug4(Stack)  not (debugf 1 ag) ,  !. 
wri tedebug4(Stack) 

wr  i  t  e  (  '  »»Re  a  son  i  ng  found  a  potential  infinite  loop  at  level  ’), 

I  eng t h(S t ack ,Nnl ) ,  N  is  Nnl+1,  write(N),  nl ,  !. 

wr i t edebug5 ( S t a t e .Goa  1 ,S t ack)  not ( debugf 1 ag) ,  !. 

wri  tedebug5(State, Goal  .Stack)  wr  i  t  e  ( ’»»Unsol  vabl  e  problem  at  level  '). 

1 engt h(St ack ,Nnl )  ,  N  is  Nnl+1,  write(N),  nl,  write('for  state  *), 
writelist(State, state),  nl,  write('and  goal  ’),  wr i t e 1 i s t (Goa  1 , s t a t e ) ,  nl ,  ! 

write debug6(Stack)  not ( debugf 1 ag ) ,  1. 

wri  tedebug6(Stack)  :  -  wr  i  t  e  ( ’»»Prev  i  ous  1  y  computed  solution  used  at  level  ") 
length(Slack.Nnl) ,  N  is  Nnl+1,  write(N),  nl,  !. 

writedebug7  no t (debugf 1 ag ) ,  !. 
wri tedebug7  : -  nl ,  ! . 

/*  Miscellaneous  utility  functions  */ 

de 1 e  t  e_unc  re  a  t able([],[]). 

de I e t e_unc rea t able( [XIL]  ,M)  uncreatable(X) ,  !,  delete_uncreatab!e(L,M)  . 

del e t e_uncrea t abl e( [XIL] , [XIM] )  de 1 e t e_unc rea t abl e(L,M)  . 

al l_achievable(S,G)  di f f e rence(G,S ,D) ,  no t ( unach i evabl e_member (D) ) . 

unachievable_member(D)  back t racki ng_membe r ( F ,D) ,  unc rea t abl e (F) . 

uncreatable(F)  precondi t ion(O.L) ,  back t racki ng_membe r (F ,L) , 
not ( in_pos  t condi t ion(F) ) . 

i n_pos t cond i t i on( no t (F) )  any_de 1 e t epos t condi t i on(O.DPL) ,  member (F.DPL) . 
i n_pos t condi t i on( no t (F) )  randsubs t (O.RSL) ,  member! [F.X.Y.Z] ,RSL) . 

in_postcondi t ion(F)  not (F=. . [not ,PJ ) ,  any_addpos t cond i t i on(O.APL) , 
member (F.APL) . 

i n_pos t cond i t i on ( F )  not (F= . . [not ,P] ) ,  randsubs t (O.RSL) . 

member([X,F,Y,ZJ ,RSL) . 

any_de 1 e t epos t cond i t ion(O.L)  de 1 e t epos t condi t i on(O.C.L) . 

any_de!etepostcondi I ion(O.L)  de 1 e t epos t condi t i on(O.L) . 
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any_addpos l cond i t i on(O.L)  addpos t cond i t i on (O.C.L) . 
any_addpos t cond i t i on (O.L)  addpos t condi t i on(O.L) . 

ge I _de 1 e t epos t cond i t i on(O.S ,L)  deletepos tcondi t ion(0,C,L) , 
f  ac  t  subse t (C, S ) ,  ! . 

ge l_de l e t epos t condi t ion(0, S ,L)  de 1 e I  epos t condi t i on(0,L) . 

ge t_addpoa t condi t ion (O.S ,L)  addpos ! cond i t i on(0,C,L) ,  fact  subset (C,S) ,  !. 

ge t_addpos t condi t i on(O.S ,L)  addpos t condi t ion (O.L) . 

appl icable_op(D.O)  subse t (D2 ,D)  .  reconmended(D2  .O)  . 

difference([],S,[’). 

di f f e rence( [not (P) IG] ,S,G2)  no t ( s i ng 1  emembe r ( P,S ) ) .  !.  d i f f e rence (G, S ,G2 ) . 

di f f e rencef (PIG] . S .G2 )  singlemember(P,S) ,  !,  difference(G,S,G2) . 

difference([PIG],S,[P!G2])  d i ffe rence (G, S ,G2 ) . 

subset ( [] .L) • 

subse t ( [XI L] ,L2 )  s i ng 1  emembe r (X,L2 ) ,  subse t (L ,L2 ) . 

f  ac  t  subse  t ([ ] ,L)  . 

f ac t subse t ( [not (P) IL] ,L2)  no t ( s i ng I emembe r ( P,L2 ) ) ,  !,  f ac t subse t (L.L 2 ) . 
f ac t subse t ([ not (P) IL] ,L2 )  !,  fail. 

f ac t subse t ( IP  I L] , L2 )  s i ng 1 emembe r(P ,L2 ) ,  f ac t subse t (L,L2 ) . 

member(X.L)  s  i  ng  I  emembe  r  (X.  L)  . 

s i ng I  emembe r (X. [XI L] )  !. 

s i ng 1 emembe r ( X , [Y I L] )  s i ng 1  emembe r (X.L) . 

append ( [ ] .L.L) . 

append) (XI L] ,L2 , [XI L3 ] )  append(L ,L2 ,L3 ) . 
union! [ ] .L.L) . 

un  i  on(  [XIL1  ]  .L2  ,L3  )  s i ng 1  emembe r (X.L2 ) .  !,  union(Ll ,L2 ,L3 ) . 

un i on( [XI LI J ,L2 , [XI L3 ) )  un i on (LI ,L2 ,L3 ) . 

deletei t ems ( f ) ,L,L) . 

de 1 e t e i t  ems ( (XI L] ,L2 ,L3 )  de 1 e t e (X.L2 ,L4 ) ,  de 1 e t e i t  ems (L,L4 ,L3 ) . 

delete (X.[],[J). 

de let e(X, [XIL]  .M)  !,  de 1 e t e (X.L JM) . 

delete (X. [YIL], [YIM])  de  1  e t e (X.L.M)  . 

check_pe  tmu t a t i on( L,M)  subset(L.M),  subset(M.L),  !. 

subsequence) ( ] ,L)  !. 

subsequence) [XIL] , [XIM] )  !,  subsequence (L  ,M)  . 

subsequence  (  L  ,  [XlM]  )  :  -  subsequence  ( L.M)  . 

pe  imu  t  emembe  r  (X,  (XIL)  )  -  !. 

pe  rmu  t  emembe  r(X,  [YIL] )  subset(X.Y),  subset(Y,X).  !. 
pe  tmu  I  emembe  r  (X.  [YIL] )  pe  imu  t  emembe  r  (X.L)  . 

1  as  t ( [X] ,X) . 

last) [XIL] ,Y)  last(L.Y). 
e 1 imdups ( [ ] . [ 1 ) . 

el  imdups)  [XIL]  ,M>  singlemember(X,L)  .  !,  e  I  imdups  (L.M)  . 
el  imdups)  [XIL]  .  JXIM] )  el  imdups(L.M)  . 
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«»*erta(Q) . 


un i queasier t (Q)  :-Q=..[PIL],  length(L.N).  abol i .h(P,N) , 
back t  r ack ingjmembe  r (X. [XIL] ) . 

back  t  rack ing_metnber (X, [Yl L] )  backt r.cking_member(X,L) . 


36 


. . . * . * . 

/*  */ 

/*  Module  Name:  TASKS  */ 

/*  */ 

/*  Author:  Capt.Taewoo  Kim,  ROKA  */ 

/•  */ 

. . . 


«et_up  :-  recomu  1 1  (  lops20-nm)  , 
recomu  1 1  ( t  aaki ) , 
recomul  t  ( tutor ) , 
«ave( aavedstate) , 
go. 


go  :  initialize, 

greeting, 
introduct ion, 
issue_taak, 
g° 

initialize  as se r t a( 1  eve  1 ( t op  )  ) , 

asser  t  a( 1  as  t _sen t _mig(77 ) ) , 
a s se r t a ( cur ren t _msg( 12) ) , 
asserta(current_task(l)) . 

greeting  :-  nl ,wri te( ’Tutor :  Hi,  what  is  your  name?  '), n i ce read (Name  )  , 
assert a(user (Name )) ,  ni, 

wri te( 'Tutor :  Nice  to  meet  you,  ' ) , nwr i t e (Name ) ,wr i t e( ' . ' ) ,n 1 . 

introduction  :-  in t roduc t i on( I ) .  nl ,  write(I),  nl  . 
introduction!'  Welcome  to  TOPS20  hM  Sel f - learning  course. 

Type  "7"  or  "help"  for  the  available  comnands 
and  "7  task"  for  the  current  task.'). 

issue_task  bagof (X,P“precondi t ion(X.P) ,XL) ,  uni queas se r t ( op_l i s t (XL) ) , 

t  ask( 1 ) . 

task(N)  -  nl ,nl , 

retract ( cur ren t _t ask(CT) ),  asserta(current_task(N)), 
q(N,Q),  write(Q),  nl.nl. 
t  a  ski (N) . 

NN  is  N  +  1,  task(W). 

change_leve 1 (NL)  re t rac t ( level (OL) ) ,  asser ta( level (NL) ) . 

top_prampt  :-  nl,  write! ’). 
mnjprompt  nl  ,  write(’hM>  ’). 
sendprompt  :-  nl,  write(’S>  ’). 
read_prcmpt  : -  nl,  write(’R>  '). 


/•  Basic  tasks.  */ 

q(l, 'Tutor:  We  are  now  at  the  top  level  mode. 

Your  fisrt  exercise  is  to  invoke  the  KM.’). 
taskl(l)  tutor! ( level ( top) ].[ level (nm)  ]) . 

q(2, 'Tutor:  Good.  Now,  we  are  at  the  AM  mode . 

Lets  browse  the  headers  of  the  current  message  in  the  mail  box.’). 
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taskl(2)  t  u  t  or  (  [  leve  1  (mn)  ] ,  { i  ssued_conmand(mn,  ’  headers  current')]). 


q(3, ’Tutor:  O.K. 

Lets  browse  the  content  of  the  current  message.'). 
taskl(3)  cur ren t_msg(K) , tut or( [ level (mn)  ] ,  l  seen(K)  ] ) . 

q(4, 'Tutor:  Now,  go  back  to  the  top  level  again.'). 
taskl(4)  :-  tutor ([ leve 1  (mn) ],[ level ( top) ]) . 


q(5, 'Tutor:  All  right.  Ws  came  back  to  the  TOP  level. 

Now,  lets  browse  all  the  headers  of  messages  in  the  mail  box.'). 
taskl(5)  :-  tut  or ([ leve 1 ( top )],( leve  1  (nxn)  ])  . 

q(6. ’ '  )  • 

taskl(6)  tut  or  ([  leve  1  (mn)  ],[  i  ssued_coamand(mn, '  heade  rs  all')]). 


q(7, ‘Tutor:  Now,  list  all  the  headers  of  flagged  messages  in  the  mail  box.'). 
taskl(7)  :•  tutor( [ level (mn) ],( i ssued_conmand(inn, 'headers  flag')]). 


q(8, 'Tutor:  Good.  Now,  set  the  flag  on  the  message  number  12.’). 
taskl(8)  :-  tutor([level (mn)  ] ,  [  i s  sued_comnand  (imt, flag)]). 


q(9, 'Tutor:  O.K.  Now,  list  all  the  headers  of  f I agged  messages  again.’). 
taskl(9)  :-  t u t or ([ leve 1 (mn)  ],[ i ssued_conmand(nm, ’ header s  flag’)]). 


q(!0, 'Tutor:  List  all  the  headers  of  the  unseen  messages  in  the  mail  box.'). 
taskl(lO)  :•  tu tor ([ leve 1 (mn) ],[ i s sued_comnand(mn,  ’ heade rs  unseen’)]). 


q( 11, 'Tutor:  All  right. 

Now,  lets  browse  the  message  number  10.'). 
taskl(ll)  : -  tut or( ( level (mn)  ],[ seen( 10) ]) . 


q(12, ’Tutor:  Now,  jump  to  the  message  number  7  in  the  mail  box.’). 
taskl(12)  :-  t u t or ( ( leve 1  (mn) ] ,  [moved(7 ) ] ) . 


q(13, ’Tutor:  All  right. 

Now,  lets  browse  the  current  message  in  the  mail  box  again.’). 
taskl(13)  :-  cur rent_msg(K)  ,  t u t or ( { 1  eve  I (mn) ] .  [seen(K)]). 

q( 14 , ’Tutor:  Good . 

Now,  browse  the  next  message  in  the  mail  box.’). 
taskl(14)  :-  t u tor (( leve 1 (ran)  ],{ i s  sued_conn>and(mn,  next )])  . 


q( 15, ’Tutor:  Now,  browse  the  previous  message  in  the  mail  box.’). 
taskl(15)  :-  t u tor (( leve 1 (mn)  J ,[ i ssued_cornnand(mn,prev ious )]) . 


q(16, ’Tutor:  Good.  Now,  send  a  message  to  X@SRI-KL.’). 
taskl(16)  :-  tutor( [ level (mn) ],( i s sued_coomand( to, ’XSSRI-KL" ) ■ 
i saued_coomand( ready_t o_send, send) J ) . 

q(17, ’Tutor:  Exellent. 

Now,  send  a  message  to  the  address  in  message  6’). 
taskl( 17)  :-  t u t or ( [ leve  I  (mn) ] , 

[ seen( 6) , i s sued_canmand( to ,A) , i ssued_comnand( ready_t o_send . send ) ] ) . 


/*  Help  message  */ 
respond_help(Level )  :•  nl. 
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T 


* 


I 


wr  i  t  e  (  '  Following  are  the  possible  comnindi  at  ’ ) , 
wr i t e (Leve 1 ) ,  write(*  level:  '),  nl.nl, 
leve  l_comnands (Level) . 

level_coranands( top) 


wr  i t  e ( ’ 

mn  ’  )  ,  nl , 

wr  i I e ( ’ 

quit.*),  nl , 

nl  ■ 

re  l_cornnands(nm) 

wr  i t  e ( ’ 

an  awe  r 

headers  all 

list 

send 

‘  )  ,  "1 

wr  i  t  e  ( ’ 

copy 

headers  current 

logout 

type 

’).  nl 

wr  i  t  e ( ' 

delete 

headers  delete 

move 

undelete 

‘  ) .  nl 

wr  i  t  e  ( ’ 

exi  t 

headers  flag 

next 

unflag 

*),  nl 

wr  i  t  e  ( ’ 

expunge 

headers  unseen 

previous 

*  )  .  "1 

wri te( ’ 

flag 

help 

qui  t 

’ ) .  nl 

wr  i  t e( ’ 

f  orwa  rd 

jwnp 

read 

’).  nl 

nl 


level_comnands(  read) 


wri te(  ’ 

copy 

help 

quit  unfl 

•8 

*),  nl 

wr  i  te( * 

delete 

list 

reply 

*).  nl 

wr  i  l  e  (  ’ 

flag 

move 

send 

').  nl 

wr  i  I  e  ( ’ 

forward 

next 

undelete 

’).  nl 

n  1  . 

i  e  ve  1  _c otrmand s  (  send) 

■  _ 

wr  i t  e ( ’ 

di spl  *y 

headers 

send 

). 

nl  . 

wri te(  ’ 

erase 

qui  t 

type  * 

). 

nl , 

n  1  . 

/*  Functions  of  each  command  */ 

give_def (tim.qui t )  write(*  Thia  ia  the  function  of  comnand  "quit".’). 


/*  Operator  definitions  for  means-ends  analysis  */ 

/*  Recotimended  operators  for  required  goals.  */ 

reconmended(  ( i  ssued_conmand(X,Y)]  ,  comnand(X.Y)  )  . 

recomnended(  [  level  (  top)  J  ,comnand(mn,X) )  member(X,  [qui  t  ,q]  ) . 

recommended  (  [level  (imi)  ]  ,  comnand  ( top  ,mn) ) . 

recotimended (  [  level  (  to)  J  , comnand (mn,  send) ) . 

reconmended(  [  level  (cc )] ,  comnand ( t  o.X) ) . 

recoomended( ( leve I ( subjec  t ) ] , comnand(cc  ,X) ) . 

recoomendedf [ level  (message ) ] , comnand ( subject ,Y) ) . 

recotimended)  [  level  (  ready_to_send)  ]  ,  comnand  (me  s  sage  ,X)  )  . 

recotimended(  (moved(K)  ],  comnand  (mn,C) )  not(var(K)),  name(  ’  jump  ’  ,A1 ) , 
name(K,A2),  append(Al  ,A2  ,AC) ,  name(C.AC) . 

recomnended(  [  seen(K)  ] ,  cornnand(mn,  type  ) )  not(var(K)).  current_msg(K) . 
recotimended(  [  seen(K)  ]  ,  cotimand(nm.C) )  not(var(K)),  name(’type  ’  ,AI )  , 
name(K,A2),  append(Al  ,A2  ,AC) ,  name(C.AC). 

/*  Preconditions  for  each  operator.  *f 
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Us 


precondi I ion( comnand (L ,X) , [ leve 1 (L) ] ) . 

/*  De letepos t condi t ion*  and  Addpoi t condi t ion*  for  each  operator*.  */ 

de  te  tepos  tcondi  t  ion(comnand(im>.Y) ,  (1  )  ordcomnands  (O) ,  member(Y.O) . 

addpos  t  condi  t  i  on  (comnand  (inn,  Y ) ,  [  i  a«ned_conmand(X,Y)  ] )  :  - 
ordconmanda(O) ,  member(Y.O) . 

del et epo* tcondi t ion(conmand(nm,Y) , (] )  not(var(Y)),  long,  j  ump_comnand(Y,Z) . 

addpo*  tcondi  t  i  on  ( comnand  (ran,  C) ,  [moved(K) ,  i  *fued_comnand(ran,C)  ] ) 
long_j  ump_coamand(C,K)  . 

de letepoa tcondi t i on(cotrmand(mn,Y) ,(  ] )  not(var(Y)),  Iong_type_comnand(Y,Z) . 

addpoa  tcondi t i on (comnand (ran, C) , [ aeen(K) , i a  sued_comnand(ran,C) ] ) 
long.! ype_comnand(C,K)  . 

dele tepos tcondi t ion (comnand (ran, type) , [] ) . 

addpos  tcondi t ion (comnand (ran, type ) , [ seen(K) , i **ued_comnand(nm, type) ] ) 
cur ren t_msg(K)  . 

de le  tepos  tcondi t ion(comm*nd( top  ,ram) .[level(top)]). 

addpos  tcondi  t  i  on  ( comnand  ( top  .rail) ,  [  i  s  sued_coranand(  top, ran)  .level  (ran)  ] ) . 
de let  epos  tcondi t i  on  (comnand (ran,  qu i t ).[ level  (mu) ) ) . 

addpos  t  condi t i on ( comnand (ran, qu i t ) , ( i s  sued_comnand(mn, qu i t ) , 1 e ve 1 ( t  op ) ] ) . 
dele tepos tcondi t i on ( comnand (ran,  q) , [ 1  eve  1 (nan) ] ) . 

addpos  tcondi t i on ( comnand  (ran, q ) , [ i s  sued_comnand(nm, qu  i  I ) , level ( t op) ] ) . 
de I e  tepos  tcondi t i on ( comnand (ran,  send) ,[ leve 1 (mm) ) ) . 

addpos  tcondi t ion (comnand  (ran, send) , [ i ssued_comnand(mn. send ) , 1  eve  1 ( t o) J ) . 

de le  tepos  tcondi t ion(coomand(X,Y) , ( level (X)  ]  )  : - 

member (X, ( to ,cc, subjec t  .message , ready_t o_*end] ) . 
addpos  tcondi t i on( coranand( to,X) , ( level (cc) , i s  sued.comnand ( t  o ,X)  ] ) . 
addpos  tcondi t ion(comnand(cc ,X) , ( leve 1 ( subjec t ) , i a sued_coranand( cc ,X) ] ) . 
addpos  tcondi t i on ( comnand ( subject ,X) , [ level  (message ) , i s sued_comnand( subject, X)]). 
addpostcondi t ion(comnand(mesaage ,X) , 

( leve 1 ( ready. t  o_ send ) , i s sued.comnand (me s  sage ,X) ] ) . 
addpostcondi t i on ( comnand ( ready_to_send , send) , 

(level  (mn) , i s sued_comnand( ready_t o_send , send) ] ) . 
addpostcondi t ion(comnand( ready_ t o_send , qu i t ) , 

( i ssued_comnand( ready_to_ send, quit ), level ( ready_to_»end) ] ) . 

ordcomnands ( (answer .copy .delete .exit , expunge .flag, forwa rd , 'headers  all', 

‘headers  current ', 'headers  de le t e ' , ' heade r a  f 1 ag ’  .  '  heade r s  unseen’, 
he  Ip, 1 i s  t , logout  .move .next , previous .unde  1 e  te ,unf lag] ) . 

Iong_jwnp_comnand(C,lC)  not(var(C)),  name  (C,  AC)  ,  name('jump  ’.AT), 
append(AT.AK.AC) ,  narae(K.AK),  number(K). 

long_type_cornnand(C,K)  not(var(C)),  name(C.AC).  name(’type  ' .AT) , 
append(AT.AK.AC) .  name(K.AK) ,  number(K). 

long_help_comnand(C,HC)  not(var(C)),  name(C.AC),  namev’help  ’.AT), 
append(AT.AK.AC) ,  name (HC.AK) . 

nopref  (O.  comnand  (mm,  type ) )  0=.  .  (comnand, mn.C]  .  long_type_cotmiand(C,K) , 

curren t_msg(K) . 

nopref  (O,  comnand  (mm,  jump) )  :•  0=.  (comnand, rnn.CJ,  long,  jump  _conntand(0,K) , 
cur ren t_m*g(K) . 
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nopref (q.qui t ) . 
nopref (n  .next ) . 
nopref (p.previ out ) . 


. . . . / 


/* 

*/ 

/* 

Module  Name : 

OORRECT.ERROR 

*/ 

/* 

*/ 

/* 

Author:  Capt 

.Taewoo  Kim, 

ROKA 

*1 

/* 

*1 

/*' 

*••/ 

/* 

Check  againat 

the  possible 

error  I 

lists 

check_error(Level  .Ncoomind ,ND)  Ncoimund  =.  .  [Pred.L, Conmand]  , 

not ( val id(Leve 1 .Conmand ) ) , 
check_eriorl(  Level  ,  Conmand  ,  WO)  , 
ca  1 1  (Level  ,WO,NO)  . 

ca  1  1  (Leve  1  .NND.ND)  NO  = .  .  [conmand, Level  , WO)  . 

/*  checks  error  for  abort  type  errors  •/ 

check_er tor 1( Level , Sconmand .Nconmand)  : -  t ype_er ror_l i a t (Leve 1 .Nconmand .List), 

membe r (Sconmand , Li  at), 
aak_error(Level .Nconmand) . 

t  ype_e  rror_list(Level,q,[a,s,w.l,2]). 
t ype_error_l i s  t ( t op ,nm,  [nn , j  j ,mj  ,mn, jm,  nm] ) . 

/*  checks  error  for  one  mistype  in  the  long  conmand  */ 
check_errorl (Level , S t ring_conmand ,Correct_conmand) 

name (S  t r i ng_comnand ,Li s  t_contnand ) , 

lcngth(Li  a  t_cotrmand  .Length ) ,  Length  >  2, 

val id(Level ,Any_val id_conmand) , 

name(Any_va  I  id_corrmand  ,Va  1  i  d_  1  i  s  t_c onmand  ) , 

one_di f ference(Li a  t_conmand ,Va 1 id_l i a i_cormiand ) , 

name  (Correct  conmand  ,Va  1  id  list  conmand), 

aak„e  rror(Level ,Co r rec t  .conmand )  . 

/*  checks  transposing  error  in  conmand  */ 

check_er  ror 1 (Level ,St  r i ng_conmand , Transpose d_s t  r i ng_conmand )  : - 

name(S t  r  ing_conmand  ,Li  a  t  _conmand )  , 
do_t  ranspose(Li  s  t_conmand  ,Transposed_conmand)  , 
name(Transpoaed_s  t r ing_conmand ,Transpoaed_conmand ) , 
val id (Leve 1 ,Transposed_s  t  r i ng_conmand ) , 
ask_er ror (Leve 1 , Transpose d_st r ing_conmand ) . 

do_t ranspose(L.TL)  t ranspose(L.TL) . 

t  ranspose(  [X,Y1L] ,  [Y.X1L] ) . 
t ranapose( [XIL] , |XIL2] )  t r an apose (L,L2 ) . 

check_errorl(Level ,  Sconmand,  Nconmand)  name  (Sconmand,  Ac  onmand ) , 

type_er  ror_l i a  1 1 (Leve 1 .Nconmand .Li  a  1 1 ) , 
member  (Ac  onmand, Li  at  1 ) , 
aak_er ror (Level .Nconmand) . 

type  error  1 i a t 1 (Leve 1 .Conmand .Error )  e (Command ,Er ror ) . 

e( t race, [[X.114, 97. 99,101 J,[ 116, X, 97.99, 101 ).[ 116,1 14, X, 99. 101JJ). 

/*  checka  error  for  level  errors  */ 

check_er ror l(Leve 1 .Sconmand .Nconmand)  : -  leve l_error_list (Level .Nconmand )  . 

co rrect_level_error( Level .Nconmand) . 

/*  Correct  the  errors  in  misconception  of  level  */ 
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cor rec t_ le ve I _e r ror ( t op ,E)  n 1 ,wr i t e( 'Ooops !  You  can  issue  a 

write(E).  wrile(’"  comnand  only  in  the  "Md"  level 
nl.nl.  write('Try  again. ’),nl. 

/* 

NO  = . .  [comnand, top, E] . 
check  with  ■ tudent (O.S.D.NO) , ! . 

*/ 


correct_level_erior(mn,E)  n 1  ,wr  i te ( ’Ooops !  You  can  issue  a  "’), 

write(E),  write{’"  comnand  only  in  the  "TOP"  level 
nl.nl,  write('Try  again. *),nl. 

/* 

NO  = .  .  [comnand  ,imi.E] , 
check_with  s t uden t (O, S ,D,NO) , I  . 

*/ 


/*  Ask  the  user  if  he/she  meant  the  valid  conmnand.  •/ 

ask_error(Level .Cor rec t_comnand )  nl. 

wri te( 'Ooops !  You  mean  "’).  wr i t e (Cor rec t _conmand ) ,  write(”'? 
niceread(Answer) ,  nl, 

!.  name(Yes_or_no, Answer) , 

NC  =..  [comnand, Level ,Cor rec t _comnand ] , 
correct_error(Yes_or_no, Level ,NC) . 

/*  Correct  the  error  if  the  answer  is  "yes”  */ 

correct_error(A. Level ,NC)  af f i  rma t i ve(A) ,  nl ,  ac t i on(Leve 1 ,NC) ,  1. 

try_again(Level .NC) 

/*  Correct  the  error  if  the  answer  is  "no"  */ 

correct _error (A, Level  .NC)  negative(A) ,nl , 

I,  wr i te( 'Please ,  type  the  correct  comnand. *)  ,nl  . 

/*  If  the  answer  is  neither  "yes"  nor  "no"  */ 

correct_error(A, Level  ,NC)  nl,  wr i t e< 'PI ea se ,  answer  in  "yes"  or  "no". 

nl.  write('«=>  ’),  niceread(B),  name(S.B), 
correct _error(S. Level ,NC) . 


/•  valid  commands  in  TOP  level  */ 

valid(top  ,nm) . 
val id( top.q) . 

/*  valid  commands  in  KM  level  */ 

val  id(mn, answer) . 

val  idfttm, copy  )  . 

val id(mn, delete) . 

val idfmm.exi t ) . 

val id(nm, expunge ) . 

val id(mn, f lag) . 

val  id(mn,  forwa  rd) . 

val id(mm, 'headers  all'). 

val id(mn, 'headers  current’). 

val  id(mn, ’headers  delete'). 

val id(nm, 'headers  flag'). 

val id(mm, 'headers  unseen’). 
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V«1 id(rnn.help) . 
valid  (imi ,  j  ump ) . 
val  i  d(rtm,  list), 
val id (nro, logout ) . 
val id  (mo,  move )  . 
val id(mo,next ) . 
v*  1  i  d(rrm,  pr ev  i  ous  )  . 
v«l id(nm.qui t ) . 

V«1  •  d(irm,  q  )  . 
val id(ma,  read) . 
val  id  (mm, send) . 
va 1 id(mm, type ) . 
val id (mn, undelete) , 
val id(mm, unflag) , 

/*  valid  comnands  in  READ  mode  */ 
val i d( read , copy ) . 

valid(read. delete). 

val  id( read , f lag) . 
valid(read, forward) . 
va I i d( read .help), 
val  id( read. list). 
valid(read  .move ) . 
va 1 i d( read ,nex  t ) . 
va 1 i d( read  , qu i t ) . 

valid( read , q ) . 
val i d( read , reply)  . 
val id( read, send) . 
va I id( read , undelete). 

val id( read ,unf I ag ) . 

/*  valid  comnanda  in  SEN)  mode  */ 

val id( a  end , d i splay) . 
valid(aend.eraae). 
va 1 id( a end .header a ) . 
val id( aend .quit), 
valid! aend ,q ) . 
valid( aend, aend) . 
val id( aend .type ) . 


level 
leve  1 
level 
level 
level 
level 
level 
level 
level 
level 
level, 
level, 
level, 
level, 
level, 
level, 
level, 
level 


error 

..error 

.error 

.error. 

.error. 

.error. 

.error. 

_error. 

.error. 

.error. 

.error. 

.error. 

.error. 

.error. 

.error. 

.error. 

.error 

.error 


1  i  a  t ( t  op 
1  i a  t ( t  op 
_liat(top 
_  1  i  a  t  (  t  op 
.  1  i  a  t  ( t  op 
.lie* (top 
.1  i  a t ( top, 
_  1  i  a  t  ( t  op , 
_li»t(top, 
.lift (top, 
.1  i  a  t  ( top, 
.  1  i  a  t ( t  op , 
.  1  i  a  t ( t  op , 
.  * «  a  t  ( t  op  , 
1  i  a  t ( t  op , 
I • a  t ( top, 
1  i  a  t ( t  op , 

1  i  a  t  (  t  op , 


an  awe  r) , 

.copy) . 

.delete) . 

. exi t ) . 

.expunge) . 

,f lag) . 

,  forward) , 

, 'headers  all’). 

, ’ header  a  answer ’ ) , 
i  ‘headers  delete ’ ) . 
‘headers  f lag’ ) . 
'headers  unseen’ ) . 
help) . 
jump) . 
list), 
next ) . 
previous ) . 
read) . 
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level _error_lis!(l op, send), 
level _error_list(t  op. t ype ) . 

Ievel_error_list(t  op, undelete). 
level_error_list  (ntn.nm)  . 

»f  f i  rmat ive(yes ) . 
af  f i  rma t i ve(yep) . 
a  f  f i rma  t i ve ( y ap ) . 
af  f i  rma I i ve ( y a ) . 
a  f  f i rma  t i ve( ye ) . 
af f i  rma I i ve(ya) . 
a f  f i  rma  t i ve( y ) . 
a  f  f i  rma  t i ve ( r i gh I ) . 
af  f i  rraat i ve(ok ) . 

nega I i ve (no ) . 
nega  t i ve (n ) . 
negal i ve(nop) . 
nega I i ve ( ne ve  r ) . 

memher(X, [XI L] ) . 

menibe r (X,  [YIL J )  member (X.L) . 

convert_atri ng_t o_ASCI I(Lift.Aliat)  : -  conl(Li«t,Tliit),reverse(Tli«I,Alist) 
con  1 ( [],[}). 

con  1 ( [XIL] , A1 i a  t )  :  -  name  (X,  As  c i i ) , append (Aac ii , Alist.Na list). c on l(L,Na list) 
one_di f ference( [XIL] .  [YIL] ) . 

one_d i f fe rence ( [XI LI ], [XIL2 J )  one_di f f e rence (LI ,L2 ) . 
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